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