error de sintaxis en la instrucción update

[kamuix]

Hola buenas, me meti porque necesito una gran ayuda en esto, pruebo de varias manera y siempre lo mismo (el mismo error) una 1 y otra vez

Private Sub cmdOK_Click()

'Dim sql As String

sql = "update usuarios set password = '" & txtPassword.Text & "'"
sql = sql & " where codusua = '" & txtcodusuario.Text & "'"
cnn.Execute sql

End Sub

porque tengo malo esta sintaxis?
de antemano muchas gracias