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 !

Para que tienes dos rsNuevo.Update ?
Deja solo el ultimo que haces cuando asignas a los campos los datos que tienes en pantalla. te queda algo como
rsNuevo.Open

With rsNuevo
!callenva = Text15.Text
!colnva = Text16.Text
!del_munnva = Text19.Text
!entidadnva = Text18.Text
!cpnv0 = Text17.Text
!telnvo = Text20.Text
.Update
End With
rsNuevo.Close : set rsNuevo = Nothing
....
rsTodo.Requery