主题：[求助],请行家帮忙看下错误在哪？

如果是日期型，要用符号#括起来。
例如我们要筛选出指定月份的订单，但是因为表达式没有求得日期月份的函数，我们只能这样设置代码：

Dim StartDate As Date '起始日期变量
Dim EndDate As Date '结束日期变量
Dim Month As Integer = 6 '指定月份
Dim Year As Integer = 1999 '指定年份
StartDate = New Date(Year,Month,1) '获得该月第一天
EndDate = New Date(Year,Month,Date.DaysInMonth(Year,Month)) '获得该月最后一天
Tables("订单").Filter = "[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#"