syntax error update command

[Van Eenoo Stefaan]

Hey, who has an idea ?

The connection was placed in a common module, and works fine.

Where did I go wrong ?

'Command object creëren
Set cmm = New ADODB.Command
strsql = "Update tblTijdschriften " & _
" Set TijdschriftId = '" & txtTijdschriftId & "'," & _
" Tijdschriftnaam = '" & txtTijdschriftnaam & "'," & _
" WHERE tijdschriftId = '" & txtTijdschriftId & "';"
With cmm
..ActiveConnection = gcnn
..CommandType = adCmdText
..CommandText = strsql
..Execute options:=adExecuteNoRecords
..Execute
End With

 

[Van Eenoo Stefaan]

This is the error message

run time error '-2147217900 (80040e14)'