日期可以指定。每月的第一天，是1号；每月的最后一天，用DateAdd("d", -1, Date)计算出来。

   Dim Yesterday

   Dim sEndTime,sBeginTime

   Yesterday = DateAdd("d", -1, Date)

   sEndTime = CStr(Year(Yesterday )) _

            & "-" & Right("00" & CStr(Month(Yesterday )),2) _

            & "-" & Right("00" & CStr(Day(Yesterday )),2) _

            & " 23:59:59"

   sBeginTime = CStr(Year(Yesterday )) _

              & "-" & Right("00" & CStr(Month(Yesterday )),2) _

              & "-01 00:00:00"

查询前，再将起始时间和终止时间减去8小时。