下面这条语句是实现向表t1(d1)添加一新记录，字段d1返回今天的日期
docmd.runsql "insert into t1 values(" & date & ")"
问题是数据库记录的并非是今天的日期，而是"1905-6-5",我就不知道这个日期是从那里来的，我头都大了。
---------------------------------------------------------------
docmd.runsql "insert into t1(d1) values(date())"
如果再不正确的话，就是你的系统时间有问题。如果你的access在另一台机子上，你需要看那台机子的时间
---------------------------------------------------------------
test
"insert into t1 values(now())"
---------------------------------------------------------------
Access中时间加#号，如：
docmd.runsql "insert into t1 values(#" & date & "#)"
---------------------------------------------------------------
insert into tl(dl) values(now)