SQL VBA UPDATE error 3219

[cycleinmars]

I Am getting 3219 error

following 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

[szlamany]

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...