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

此主题相关图片如下：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