dao数据库问题

Question

原来代码是用acess97的，所以用的还是dao数据库，有段代码需要删除指定日期，指定次数的那段记录，我这样写，可是报错。
Private Sub DataDel()
    Dim dbs As Database
    Dim MySql As String
    Dim rst As Recordset
    Set dbs = OpenDatabase(datareal.DatabaseName)
    MySql = "delete from RealData where TestDay=" & Format(DateTimePicker1.Value, "yyyymmdd") & " and TestTimes=" & Combo1.List(Combo1.ListIndex)
    Set rst = dbs.OpenRecordset(MySql, dbOpenDynaset, , dbOptimistic)
    rst.Delete
    rst.Update
    rst.Close
    dbs.Close
End Sub报实时错误'3001',无效的参数量。
我数据库不熟悉，请帮我改改看吧？

Answer 1

RealData是数据表。rst.Delete没有的，出错在这行：Set rst = dbs.OpenRecordset(MySql, dbOpenDynaset, , dbOptimistic)
各位大侠帮下忙了，弄了半天搞不出来。

Answer 2

MySql = "delete from RealData where TestDay=#" & Format(DateTimePicker1.Value, "yyyy-mm-dd") & "# and TestTimes=" & Combo1.List(Combo1.ListIndex)

Answer 3

既然是delete 用dbs.execute() 

Answer 4

3楼的dbs.Execute这句提示必选参数。

Answer 5

如果这样dbs.Execute (MySql) 提示 实时错误'3464' 标准表达式中数据类型不匹配。