vb6.0怎么修改access数据库中指定位置的数据？

数据库格式如下：

ID JOB 接收 完成 暂停
1 235 10：52：33 11：52：33  
2 225 10：58：33 11：52：33 
3 123 10：59：10 11：58：10

AdoDatazt.Open "Select * From data Where JOB='" & Text1.Text & "'", db, adOpenStatic, adLockOptimistic
If AdoDatazt.Fields("暂停") Is Null Then
  AdoDatazt.Fields("暂停") = Now()
else
  AdoDatazt.Fields("暂停") = ""
enf if

现在有2个问题：
1、判断语句If AdoDatazt.Fields("订单暂停") Is Null Then，说是错的
2、清空暂停记录，怎么赋值呢？格式是时间，直接""好象不对？

VB code

AdoDatazt.Open "Select * From data Where JOB='" & Text1.Text & "'", db, adOpenStatic, adLockOptimistic
If isnull(AdoDatazt.Fields("暂停")) Then
  AdoDatazt.Fields("暂停") = Now()
else
  '本身就是NULL了，无需赋值
  'AdoDatazt.Fields("暂停") = ""
enf if