actualizar tabla desde vb 6.0 a mysql

[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...