主题：求救：时间列格式为20140-08-07 16：54格式的 想筛选今日数据 代码怎么写？我写的代码无法进行筛选，求纠正！

Dim xxl As WinForm.TopicBar = Forms("主窗体").Controls("TopicBar1")

Dim kg1 As String = "------"

Dim jy As WinForm.TopicPage =xxl.Pages("今日信息")

jy.Links(0).Text = "今日消费金额【" & DataTables("消费明细").Compute("sum(累计消费)","消费时间 >= #" & Date.Today & " 00:00:00#  and 消费时间<= " & Date.Today & " 23:59:59#") & "】元"

jy.Links(1).Text = "今日就餐人数【" & DataTables("消费信息").Compute("sum(就餐人数)","就餐时间 >= #" & Date.Today & " 00:00:00#  and 就餐时间<= " & Date.Today & " 23:59:59#") & "】人"

jy.Links(2).Text = "今日结账金额【" & DataTables("结账登记").Compute("sum(消费金额)","结账时间 >= #" & Date.Today & " 00:00:00#  and 结账时间<= " & Date.Today & " 23:59:59#") & "】人"

Dim jy1 As WinForm.TopicPage =xxl.Pages("历史信息")

jy1.Links(0).Text = "历史营业金额【" & DataTables("消费明细").Compute("sum(累计消费)") & "】元"

jy1.Links(1).Text = "历史就餐人数【" & DataTables("消费信息").Compute("sum(就餐人数)") & "】人"

jy1.Links(2).Text = "历史结账金额【" & DataTables("结账登记").Compute("sum(消费金额)") & "】元"

Dim A As Integer = DataTables("消费明细").Compute("sum(累计消费)")

Dim b As Integer = DataTables("结账登记").Compute("sum(消费金额)")

Dim c As Integer

 c = a-b

jy1.Links(3).Text = "尚未结账金额【" & c & "】元"