Visual Basic - Update una BD de sql server desde VB

Hola a todos soy Jesus de Mexico, soy estudiante de sistemas comp., tengo un problema la situacion es la siguiete tengo una base de datos que ise en sql server 7

hago la conexion con visual basic usando una variable cn ADODB.conecction y una variable rs ADODB.recordset todo funciona bien la conexion funciona bien inserto registros, los elimino y puedo hacer consultas pero a la ora de modifcar los campos no me marca errores ni nada pero no los modifica, si alguien puede ayudarme le agradecere.

el codigo del boton modifficar es el siguiente:

Private Sub Command2_Click()
On Error Resume Next
If MsgBox("Desea Modificar los campos", vbQuestion + vbYesNo) = vbYes Then

coneccion // este es el sub donde tengo la conexion
Set rs = New ADODB.Recordset // este creo ke no se ocupa

cn.Execute ("Update from Clientes set (Nombre_Cliente='" & txtNombre_Cliente.Text & "', Domicilio_Cliente='" & txtDomicilio_Cliente.Text & "', Telefono_Cliente='" & txtTelefono_Cliente.Text & "') where Codigo_Cliente=('" & txtCodigo_Cliente.Text & "')"), cn
MsgBox ("Registro modificado")
End If
End Sub

ojala alguien me dig si el codigo esta mal o que onda x ke no marca errores pero no modifica

Saludos!!!
Jesus Rubio

[email protected]

Hola

de vez en cuando es bueno seleccionar una palabra y presionar F1
para obtener una pequeña ayuda.
por ejemplo marcar "Update", te aparecera un ejemplo como hacer un update
o bajate un manualcito de intrucciones sql.

pero bueno, esto es lo que necesitas.
espero que te sirva.

Private Sub CmdModifica_Click()
Dim N As Integer
Dim Sql As String

On Error Resume Next
If MsgBox("Desea Modificar los campos", vbQuestion + vbYesNo) = vbYes Then

coneccion ' <- tu sub

Sql = ""
Sql = Sql & "Update Clientes "
Sql = Sql & " Set "
Sql = Sql & " Nombre_Cliente='" & txtNombre_Cliente.Text & "', "
Sql = Sql & " Domicilio_Cliente='" & txtDomicilio_Cliente.Text & "', "
Sql = Sql & " Telefono_Cliente='" & txtTelefono_Cliente.Text & "' "
Sql = Sql & " where "
Sql = Sql & " Codigo_Cliente='" & txtCodigo_Cliente.Text & "'"

cn.Execute Sql, N

MsgBox ("Registro modificado (se modificaron " & N & " Registros")

End If

End Sub

Muchas gracias brother funciono muy bien creo ke hoy si podre entregar mi tarea completa gracias

Saludos!!!
Jesus Rubio