Actualizar tabla

[rubenkieffer]

gente estoy tratando de actualizar una tabla despues de modificar los datos de un registro al seleccionar guardar me sale un error "-2147217864(80040e38)' en tiempo de ejecucion:
no se puede encontrar la fila para su actualizacion:algunos valores han cambiado desde la ultima vez que se leyo.

y luego me marca el rs.update

este es el cogido para guardar los datos de un registro txte = "select id_persona from personas where id_persona = " & lblcodigo.Caption & ";"
If rs.State = 1 Then rs.Close
rs.Open txte, cn, adOpenStatic, adLockReadOnly

If rs.RecordCount > 0 Then
nuevos = False
Else
nuevos = True
End If
rs.Close

If nuevos = True Then
txt = "select * from personas where id_persona = 0"
rs.Open txt, cn, adOpenDynamic, adLockOptimistic
rs.AddNew
Else
txt = "select * from personas where id_persona = " & lblcodigo.Caption & ";"
rs.Open txt, cn, adOpenDynamic, adLockOptimistic
End If

rs!id_persona = Val(lblcodigo.Caption)
rs!eliminado = "no"

rs.Update
rs.Close

desde ya muchas gracias...

[lokoman]

Hola!
Asi es mas sencillo:

•Para actualizar:

Código vb:

CN.EXECUTE "UPDATE PERSONAS SET CAMPO1=" & txtValorCampo1 _
& ", CAMPO2=" & txtValorCampo2 & " WHERE ID_PERSONA=" & lblCodigo.Caption
 

•Para insertar:

Código vb:

CN.EXECUTE "INSERT INTO PERSONAS CAMPO1, CAMPO2 VALUES(" _
& txtValorCampo1 & "," & txtValorCAmpo2 & ")"
 

• Para eliminar:

Código vb:

CN.EXECUTE "DELETE PERSONAS WHERE ID_PERSONA=" & lblCodigo.Caption
 

[rubenkieffer]

Estuve probando este metodo y me muestra un error de sintaxis en el sql...

unknown column 'valorcolumna' in field list

[rubenkieffer]

encontre la solucion por si ha alguien le sirve me funciona de lujo espero que les sirva a ustedes:

cn.Execute "UPDATE Clientes SET Id_persona = '" & lblcodigo.Caption & "', Apellido_cli = '" & txtapellido.Text & "', nombre_cli = '" & txtnombre.text & "' Where ID_PERSONA =" & lblcodigo.Caption