Visual Basic - Error de Lectura de datos

Buenos días, alguien me podría ayudar con este error, me ocurre durante una simple lectura a un recordset, este es el código

Do While Not objRecordset.EOF
NumeroOP = objRecordset.Fields("Numero")
objRecordset.MoveNext
If Not objRecordset.EOF Then
NumeroSig = objRecordset.Fields("Numero")
If NumeroOP <> NumeroSig Then
objRecordset.MovePrevious
End If
NumeroSig = ""
Else
objRecordset.MovePrevious
End If

Debug.Print objRecordset.Fields("Numero") & " " & objRecordset.Fields("FECHANIVEL")
objRecordset.MoveNext
Loop

Al llegar a determinado registro se produce el siguinete error

Run-time error '-2147217887 (80040e21)';

Multiple-step OLE DB operation generated errors. Check each OLE DB
status value, if available. No work was done.

Me podrían decir que produce este ERROR. De antemanos muchas gracias.

Que tal, ya se resolvio este problema, resulta que un solo registro de la infoemación venia mal.

De cualquier forma Gracias

no se