主题：[求助]关于日期筛选

此主题相关图片如下：714fqag%2_qvd{cxb1x4$g.png

上图这个表中，起始时间是time格式，如何获取6月24日18点以后所有的记录

请帮忙看看下面这段代码错在哪里了？

Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Select GetDate()"
Dim dt As Date
dt = cmd.ExecuteScalar()
Dim dy As Date  = dt.Date
Dim hy As String = " 18:00"
Dim ht As Date = dy + hy
Dim hy1 As Date = Format(ht,"HH:mm")
Dim h As TimeSpan = ht - dt
If h.TotalMinutes < 0 Then
    For Each mx As DataRow In DataTables("计划图").Select("起始日期 = #"& dt.Date &"# And 起始时间 >= #"& hy1 &"#")
        If mx("终到站") = "虎石"
            Dim z As String = mx("终到时间")
            Dim q As String = mx("起始时间")
           
        End If
    Next
Else
End If

 试试

For Each mx As DataRow In DataTables("计划图").Select("起始日期 = #" & dt.Date & "# And 起始时间 >= #" & new Date(1900,1,1,18,0,0) & "#")

袍哥，谢了，ok了，但是，你能给我说说是什么原理吗？或者有这个知识点的相关资料也行

没有日期的时间，默认的年月日，是1900年1月1日，必须这样拼凑才行。

谢谢！袍哥，又学到了知识，真诚感谢！