将当前日期插入表中！

Question

     Set cn = New ADODB.Connection
     cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\member.mdb"
     cn.Execute "insert into attendance(到寝日期时间) values (' #" & Format(Now(), "YYYY-MM-DD") & "# ')"
标准表达式中数据类型不匹配...
数据库道勤日期时间字段 类型是 日期时间
1。怎么改呀...
2。如果精确当前时间 怎么改

Answer 1

cn.Execute "insert into attendance(到寝日期时间) values (#" & Format(Now(), "YYYY-MM-DD") & "#)"

Answer 2

数据库为ACCESS时：
cn.Execute "insert into attendance(到寝日期时间) values (#" & Format(Now(), "YYYY-MM-DD") & "#)"
数据库为SQL时：
cn.Execute "insert into attendance(到寝日期时间) values ('" & Format(Now(), "YYYY-MM-DD") & "')"