Nothing

你的代码不应当加到Load里面，应当加对Timer1_timer中，当到时的自动提醒

Dim rS As New ADODB.Recordset
Dim sqlstmt As String
     sqlstmt = "select * from 预约单 WHERE 预约时间>='" & now&  "'"
     
Set rS = sqltmt
If rS.EOF Then
MsgBox "有预约", "请注意"
End If