主题：通过组合框筛选。

Dim m  As integer = e.Form.Controls("ComboBox1").Value
Dim y As  integer= Date.Today.Year
Dim FirstDay As Date = New Date(y,m,1) '第一天
Dim LastDay As Date = New Date(y,m,Date.DaysInMonth(y,m)) '最后一天

Tables("XXX").Filter = "日期 >=#" & FirstDay & "# And 日期<=#" & LastDay & "#"