最好:
dim time1 as String
time1 = format(date,"yyyy-mm-dd")
sqlstr = "insert into 表(日期) " & "values('" & time1 & "')"