Hola, soy nuevo por aqui, a mi me paso lo mismo y antes de cerrar el recordset le puse el update, proba con este codigo y luego comentas como te fue, saludos
If Not Datejemplo.rsprueba.State = adStateClosed Then
Datejemplo.rsprueba.Update
Datejemplo.rsprueba.Close
End If