主题：如何获取本月数据

Dim y As Integer = Date.Today.Year
Dim m As Unteer = Date.Today.Month
Dim FirstDay As Date = New Date(y,m,1) '第一天
Dim LastDay As Date = New Date(y,m,Date.DaysInMonth(2008,2)) '最后一天
Dim Fiter As String = "日期 >= #" & FirstDay & "# And 日期 <= #" & LastDay & "#"