VB+Access数据库。比较表中时间字段（类型为日期）与当前时间。如果表字段时间小则进行提醒。

Dim d1 As Date
Private Sub Form_Load()
d1 = Date
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_gzbz.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from gzbz where 完成情况 Like '未' " Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
If DateDiff("d", CDate(Adodc1.Recordset.Fields("时间").Value), CDate(d1)) > 0 Then

Text1.Text = Adodc1.Recordset.Fields(0).Value
Text2.Text = Adodc1.Recordset.Fields(1).Value
Text3.Text = Adodc1.Recordset.Fields(2).Value
Text4.Text = Adodc1.Recordset.Fields(5).Value
Text5.Text = Adodc1.Recordset.Fields(6).Value

End If

End If
End Sub

但是感觉好像没有执行
If DateDiff("d", CDate(Adodc1.Recordset.Fields("时间").Value), CDate(d1)) > 0 Then

这条语句。因为有没有这条语句结果都一样。这是为什么？请问哪里出错了。求大神指点。

应该是Adodc1.Recordset.RecordCount =0，改下：
select * from gzbz where 完成情况 Like '%未%'

你可以写一个代表字段，判断一下和以前的值是否相同，如不同，时间也随着更新 -------------------------------------------------------- 直接在代码里判断就可了了。 不需要在数据库里怎么做的， 只要把你需要的字段都写上就好了。