插入时间问题

在VB中向ACCESS数据库插入时间

Dim   dat   As   Date
Dim   sql   As   String

dat   =   Format(Date,   "yyyy-mm-dd ")

sql   =   "insert   into   配料统计   values( "   &   dat   &   "） "  

调试显示dat=2007-4-15

但是插入数据库中就是1905-6-10

什么原因？



------解决方案--------------------
sql = "insert into 配料统计 values( " & dat & "） " --这里你写的右扩号应该是英文的

--> 两边加单引号

sql = "insert into 配料统计 values( ' " & dat & " ') "