wdp221651

各位高手：
    我是初学VB做数据库编程，用的是ACCESS数据库。
  现在做自动提示功能。把数据库的记录时间与系统时间对比。
这是我写的代码：
Private Sub Form_Load()
Dim rS As New ADODB.Recordset
Dim sqlstmt As String
     sqlstmt = "select * from 预约单 WHERE 预约时间 LIKE " + Trim(Str(Label1.Caption))
     
Set rS = sqltmt
If rS.EOF Then
MsgBox "有预约", "请注意"
End If
End Sub

Sub timer1_timer()
Label1.Caption = Time$()
End Sub
我用的是TIMER控件控制