Visual Basic - Recordset

En un Tb DBGRID muestro 5,000 lineas de clientes que tengo en mi BD en Access, ahora mi problema es que por medio del siguiente codigo trato de hacer una actualización de solo uno de esos datos. Trato de hacer una busqueda del dato DBGRID seleccionado y por medio de cuadros de texto, trato de introducir la actualización:

Set rsNuevo = New Recordset
With rsNuevo
.Source = "SELECT * FROM cartera WHERE id = " & txtID.Text & " "
.ActiveConnection = cnDB
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
End With

rsNuevo.Open

With rsNuevo
.Update
!callenva = Text15.Text
!colnva = Text16.Text
!del_munnva = Text19.Text
!entidadnva = Text18.Text
!cpnv0 = Text17.Text
!telnvo = Text20.Text
.Update
End With

rsTodo.Requery
Set rsNuevo = Nothing
MsgBox "Se han guardado los datos satisfactoriamente", vbInformation

Set Tabla.DataSource = rsTodo
End Sub

Trabaja bien., pero algunas veces si guarda y otras veces hasta que doy por segunda vez clic, que pasará?

Muchas gracias,
Miguel !

data1.execute="UPDATE tabla SET campo=' " & text1.text & "' WHERE campo2= ' " & clave & " ' "

estas en la era de las cavernas bro. mejor usa el execute, nos vemos