高手看看这个问题出那了

Question

 为什么判断条件一直都不满足呢，我做了好多数据测试都不能 执行frmReminView.Show ，Remind_time字段是数据类型的，显示小时分秒，就是不相等，      
Call OpenConn
    sqlRemind = "select top 1 Remind_time from Gl_Remind where Remind_time > #" & Time & "# order by Remind_time ASC"
    dbRest.Open sqlRemind, dbConn, 1, 1
        If Time = CDate(dbRest.Fields("Remind_time")) Then  ---------这点
            frmReminView.Show
        Else
            
        End If
  '  End If
    Call CloseConn

Answer 1

       If Time = CDate(dbRest.Fields("Remind_time")) Then  ---------这点 
            frmReminView.Show 
        Else 
            
        End If 改一下. If GetSecond(Time) > GetSecond(CDate(dbRest.Fields("Remind_time"))) and GetSecond(Time) < GetSecond(CDate(dbRest.Fields("Remind_time")))-60 Then  ---------这点 
     frmReminView.Show 
 Else 
            
 End If Private Function GetSecond(ByVal DteData As Date) As Long
   GetSecond = Hour(DteData) * 3600 + Minute(DteData) + Second(DteData)
End Function