access insert 时间 报错

希望在表中插入时间字段

access中 时间表 的字段：riqi（短日期），数量（整形）

vba：

Private Sub Command0_Click()
    Dim curdb As Database
    Dim curRS As Recordset
    Dim strSql As String
    Dim DateTemp As Date
    Dim strDate As String
   
    Set curdb = CurrentDb
    DateTemp = #2/3/2010#
   
    strDate = "2010-03-03"
   
    strSql = "insert into 时间表(riqi,数量) values ('2010-03-03',3)"
    curdb.Execute (strSql)
    MsgBox ("成功")
   
End Sub

 strSql = "insert into 时间表(riqi,数量) values ('2010-03-03',3)"
可插入成功

改为 strSql = "insert into 时间表(riqi,数量) values (DateTemp,3)"

或   strSql = "insert into 时间表(riqi,数量) values (strDate,3)"

都不行，提示“运行错误：3061

              参数不足，期待是1”