主题：相同时段筛选代码求助

Dim v  As Date = Tables("XXX").Current("日期")
Dim y As Integer = v.Year
Dim m As Integer = v.Month
Dim FirstDay As Date = New Date(y, m, 1)
Dim LastDay As Date = New Date(y, m, Date.DaysInMonth(y,m))

Tables("XXX").Filter = "日期 >= "#" & FirstDate & "# And 日期 <=#" & LastDate & "#"