Select 姓名,缺勤日期 From {考勤} Where 缺勤日期 = #" & Date.Today & "#"
SQL数据源的话:
Select 姓名,缺勤日期 From {考勤} Where 缺勤日期 = '" & Date.Today & "'"