主题：时间分开查询

 参考代码

Dim y As Integer = 2017
Dim m As Integer = 7
Dim dt1 As New Date(y, m, 1)
Dim Filter As String
Filter = "业务往来_订单日期 >= #" & dt1 & "# And 业务往来_订单日期 < #" & dt1.AddMonths(1) & "#"
Tables("财务汇总窗口_Table4").Filter = Filter