主题：请教select语句的写法

其实换个说法，就是获得当月日期范围：
 
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天

Tables("表名").Filter = "日期 >=#" $ dt1 & "# And 日期 <= #" & dt2 & "#"