Ayuda Con Recordset Porfavor!!!

[juxodais]

Hola a todos, ahorita ando apuradisimo con un problema que se me presento, miren, mi sistema estaba en Access pero por cuestiones de hacerlo mas multiusuario lo cambio todo a SQL Server, pero ahora me esta dando unos problemas con el recordset, me sale:

Error '-2147418113 (8000ffff)' en tiempo de ejecución :
Error Catastrofico


me marca error cuando utilizo la propiedad del recordset ".movenext" y ya llegue al final de lo registros. Por lo que he leido, algo hace SQL Server que no se que con los indices del adodb.recordset. pero ya hice algunas cosas y no me jala, alguien sabe a que se deba??

Do While Not grsServicio.EOF
With gconServicio
.BeginTrans
.Execute _
"SET IDENTITY_INSERT TempGrid ON INSERT INTO...........
End With
grsServicio.MoveNext
Loop
(Omiti el Query para que quepa mejor en el post)

Este es el ciclo que uso pero me marca error cuando el movenext ya cae en el .eof.

Alguien me puede ayudar??? se los agradeceria mucho porque ando contra el tiempo con este proyecto en el trabajo.

Saludos y espero me puedan ayudar