直接写,如
b.filter = "日期 >= #" & date.today.adddays(-6) & "#"
如果是查本周,可以这样写
b.Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"