插入时间问题

在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 & " ') "