代码没问题。
1、弹出条件看看
msgbox("[日期] >= '" & Date.Today & "' and [日期] < '" & Date.Today.AddDays(1) & "'")
2、在你数据库那里,看看是否有符合的数据
3、试试改成