Visual Basic - Error en Update

Tengo un Adodc y al llegar a .update

"no se puede encontrar la fila para su actualizacion, algunos valores han cambiado desde la ultima vez que se leyo"

Form1.Adodc3.Recordset.Fields("Fecha") = Date
Form1.Adodc3.Recordset.Fields("Atiende") = Atiende
Form1.Adodc3.Recordset.Fields("HoraInicio") = HraI(Index)
Form1.Adodc3.Recordset.Fields("HoraFin") = Time()
Form1.Adodc3.Recordset.Fields("TiempoPagar") = Time() - HraI(Index)
Form1.Adodc3.Recordset.Fields("PrecioHora") = 10
Form1.Adodc3.Recordset.Fields("Maquina") = Index
pagar(Index) = Round(pagar(Index), 0)
Form1.Adodc3.Recordset.Fields("Pagar") = pagar(Index)
Form1.Adodc3.Recordset.Update

Es posible que antes de este update ya aplicates uno en el Formulario Form1, ya que veo que estas grabando en otro formulario. Lo que pasa que el marcador de fila o puntero, que indicaba el registro actual para modificar, se ha perdido, esto solo pasa cuando modificas el registro o lo bloqueas.

Puedes hacerle frente a este error interseptandolo y redirigiendo el foco del programa nuevamente al inicio del proceso de grabado para que lo vuelva a intentar, si insiste deberas intentarlo hasta que el sistema libere el registro ya que es posible que tenga bloqueo pesimista el cual es el mas dastrico. Tienes que darle opcion al suario de continuar o no.

Espero que la informacin te ayude en algo.

Tiene bloqueo optimista y aqui me ubico en el registro a modificar
Form1.Adodc3.Recordset.Move Index - 1, adBookmarkFirst

luego las modificaciones(lo del form1 esta demas)
Form1.Adodc3.Recordset.Fields("Fecha") = Date
Form1.Adodc3.Recordset.Fields("Atiende") = Atiende
Form1.Adodc3.Recordset.Fields("HoraInicio") = Date
Form1.Adodc3.Recordset.Fields("HoraFin") = Time()
Form1.Adodc3.Recordset.Fields("TiempoPagar") = Time()
Form1.Adodc3.Recordset.Fields("PrecioHora") = 10
Form1.Adodc3.Recordset.Fields("Maquina") = Index
pagar(Index) = Round(pagar(Index), 0)
Form1.Adodc3.Recordset.Fields("Pagar") = 10
'Form1.adodc1.Recordset.Fields("Acumulado") = Pagar(Index) + acumulado
'Form1.Adodc3.Recordset.Update

Una vez situado en el registro, primero tienes que editarlo
adodc3.recordset. edit
y despues poner las modificaciones