谢谢你们，但问题没解决，请看内容！

Question

dim strDate as string
dim datenow as date
datenow = date
strdate="#" & datenow & "#"
sqlstr = "select * from 表 where #表.日期# < " + "'" + strdate + "'"

Answer 1

SQL2000的日期用 ' 分隔
ACCESS 的日期用 # 分隔SQL2000: sqlstr = "select * from 表 where 表.日期 < " & "'" & datenow & "'"
ACCESS:  sqlstr = "select * from 表 where 表.日期 < " & "#" & datenow & "#"

Answer 2

sqlstr = "select * from 表 where 表.日期 <  ''" & datenow & "''"

Answer 3

sqlstr = "select * from 表 where 表.日期 < ''" & datenow & "''"

Answer 4

把datenow格式format或者在SQL里用convert