要这样才行
Dim d As Date = New Date(2000, 1, 1)
Tables("订单").Filter="[日期] >= #" & d & "# and [日期] < #" & d.AddYears(1) & "#"
加好友 
发短信
Post By：2015/5/6 19:40:00 [只看该作者]
