主题：SQL时间查询问题

如筛选本月的订单：

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 < #" & dt1.addmonths(1) & "#"
Tables("订单").Filter = Filter