SQL VBA UPDATE error 3219

I Am getting 3219 error

following code

Code:

---

Dim rec3 As Recordset

Dim db As Database
Set db = CurrentDb
MsgBox Me.ordnum.Value
Set rec3 = db.OpenRecordset("UPDATE dailydtatab SET DEALERID = '" & Me.delident.Value & "' WHERE ORDERNUMBER ='" & Me.ordnum.Value & "'")

MsgBox " recorders updated"

---

can anybody tell what is the problem

Update commands don't return a recordset - what are you trying to accomplish with that code?

I don't do VBA but there must be some kind of EXECUTE command that will run your ACTION query...