With Tables("采购申请统计") Dim m1 As Date = Date.Today Dim m2 As Date = New Date(m1.Year,m1.Month,1) .Filter = "[申请日期] >#" & m2 & "# And [申请日期] <= #" & m1 & "#"End With