Visual Basic - como cambio un dato de un campo de mi base de dato

Tengo un problema al querer cambiar un dato de un campo de mi tabla Arriendos de mi base de datos....lo que pasa es que lo cambio y solo me permite cambiar el primero y si quiero seguir cambiando me arroja un error....y le puse un controlador de error y lo maneja pero me cambia todo no solo el campo que quiero cambiar (de Deudor a OKAY!) scambia toda la columna, este es el codigo:

Private Sub cmdActualizar_Click()
conecActualizaEstadoCli

If MsgBox("¿Realmente desea actualizar este registro?", vbQuestion + vbYesNo) = vbYes Then
rsActualizaEstado!EstadoCliente = "OKAY!"

On Error GoTo corrige:
rsActualizaEstado.Update

Else
rsActualizaEstado.CancelUpdate

End If

Exit Sub
corrige:
MsgBox ("Actualizacion satisfactria"), vbExclamation
Unload Me

End Sub

Si alguien me puede hechar una ayuda le estare muy agradecido!!!

Creo, (pues no lo comentas ) que utilizas el DataEvinroment
el Problema te podria venir de la sentencia SQL que utilizes en el comand, quizas no hayas definido bien los Param.
Si me dices que control utilizas Puede que te ayude

Me conecto desde un modulo a una base de datos en acces.......el codigo del modulo esta bueno no utiliso DataEnviroment.......Este es el codigo:

Private Sub cmdActualizar_Click()
conecActualizaEstadoCli

If MsgBox(\"¿Realmente desea actualizar este registro?\", vbQuestion + vbYesNo) = vbYes Then
rsActualizaEstado!EstadoCliente = \"OKAY!\"

On Error GoTo corrige:
rsActualizaEstado.Update

Else
rsActualizaEstado.CancelUpdate

End If

Exit Sub
corrige:
MsgBox (\"Actualizacion satisfactoria\"), vbExclamation
Unload Me

End Sub

el \"conecActualizaEstadoCli\" es el que me conecta con el modulo......solo lo que quiero es cambiar de estado un campo ej: de Deudor a OKAY eso es todo pero como comente anteriormente me arroja error y no hace lo que quiero.. Este es el modulo

Public Function conecActualizaEstadoCli()
Set cnActualizaEstado = New Connection
With cnActualizaEstado
.Provider = \"Microsoft.Jet.OLEDB.4.0\"
.ConnectionString = App.Path & \"\\Master.mdb\"
.Open
End With

Set rsActualizaEstado = New Recordset
With rsActualizaEstado
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Open \"select EstadoCliente from Arriendos\", cnActualizaEstado

End With

End Function

Si me pueden ayudar Estare muy Agradecido!

Seguramente debes tener mas de un registro en el recordset por ello deberias buscar primero el registro que deseas modificar con un Find para que el cursor se ubique en ese registro. Luego de encontrarlo recien alli procedes a hacer las modificaciones. Ademas tu codigo de error deberias analizarlo mejor puesto que un codigo de deteccion de error es eso de Deteccion de Error ,con lo que estarias indicando que si te da error que haga el Update. Es una opinion, suerte