Visual Basic - Urgente error que no se resolver

Hola quiero hacer una modificacion en un registro de una tabla de una base de datos en mysqly me da un error en la linea donde pone rsmodiaspi.update dice algo asi como "no se puede encontrar la fila para su actualizacion: algunos valores han cambiado desde la ultima vez que se leyo" y el codigo es este:
Set rsModiAspi = Nothing
rsModiAspi.CursorLocation = adUseClient
rsModiAspi.Open "SELECT * FROM aspirantes WHERE Entrada = " & Val(frmAspirantes.txtAspirantes(21).Text), cn, adOpenStatic, adLockOptimistic, adCmdText
If Not rsModiAspi.EOF Then
rsModiAspi.Fields("Entrada") = frmAspirantes.txtAspirantes(21).Text
rsModiAspi.Fields("Pasaporte") = frmAspirantes.txtAspirantes(0).Text
rsModiAspi.Fields("DNI") = frmAspirantes.txtAspirantes(1).Text
rsModiAspi.Fields("Nombre") = frmAspirantes.txtAspirantes(2).Text
rsModiAspi.Fields("Apellido1") = frmAspirantes.txtAspirantes(3).Text
rsModiAspi.Fields("Apellido2") = frmAspirantes.txtAspirantes(4).Text
rsModiAspi.Fields("FechaNac") = frmAspirantes.txtAspirantes(5).Text
rsModiAspi.Fields("PaisNac") = frmAspirantes.txtAspirantes(6).Text
If frmAspirantes.txtAspirantes(7).Text = "" Then
rsModiAspi.Fields("Llegada") = Null
Else
rsModiAspi.Fields("Llegada") = frmAspirantes.txtAspirantes(7).Text
End If
rsModiAspi.Fields("EstadoCivil") = frmAspirantes.txtAspirantes(8).Text
rsModiAspi.Fields("Empadronamiento") = frmAspirantes.txtAspirantes(9).Text
rsModiAspi.Fields("Domicilio") = frmAspirantes.txtAspirantes(10).Text
rsModiAspi.Fields("TelfFijo") = frmAspirantes.txtAspirantes(11).Text
rsModiAspi.Fields("TelfMovil") = frmAspirantes.txtAspirantes(12).Text
rsModiAspi.Fields("Estudios") = frmAspirantes.txtAspirantes(13).Text
rsModiAspi.Fields("Titulacion") = frmAspirantes.txtAspirantes(14).Text
rsModiAspi.Fields("Experiencia") = frmAspirantes.txtAspirantes(15).Text
rsModiAspi.Fields("Preferencias") = frmAspirantes.txtAspirantes(16).Text
rsModiAspi.Fields("Historial") = frmAspirantes.txtAspirantes(17).Text
rsModiAspi.Fields("Oferta") = frmAspirantes.txtAspirantes(18).Text
If frmAspirantes.txtAspirantes(20).Text = "" Then
rsModiAspi.Fields("Comienzo") = Null
Else
rsModiAspi.Fields("Comienzo") = frmAspirantes.txtAspirantes(19).Text
End If
rsModiAspi.Fields("Observaciones") = frmAspirantes.txtAspirantes(20).Text
rsModiAspi.Update
End If