error que no me deja continuar

[lexus_lex]

estimados, tengo una modulo de update el cual al ejecutarlo me indica que existe un error en la sintaxis de Update, el codigo es el siguiente:

Dim comando As New OleDb.OleDbCommand
conexion()
If TxtPassword.Text <> TxtPassword2.Text Then
MsgBox("Deben coincidir las contraseñas", MsgBoxStyle.Information)


ElseIf TxtCargo.Text <> "" And TxtUsuario.Text <> "" And TxtMovil.Text <> "" Then

comando.CommandText = "UPDATE usuarios SET nombreuser='" & CbNombre.Text & "', cargo='" & TxtCargo.Text & "', usuario='" & TxtUsuario.Text & "', password='" & TxtPassword.Text & "', movil='" & TxtMovil.Text & "', acceso='" & CboAcceso.Text & "' WHERE idusuario = '" & TxtIdUsuario.Text & "'"


comando.CommandType = CommandType.Text

comando.Connection = conex

comando.ExecuteNonQuery()

MsgBox("Usuario" & " " & TxtUsuario.Text & " " & "actualizado")


Me.Close()
'ConBita.Show()

Else

MsgBox("Debe ingresar todos los registros")


comando.Dispose()
End If

favor una ayuda ya que no se donde tengo el error