Error 3021 en vb6

[Say_No_More]

Hola amigos tengo ua app que cuando cara un form muestra una serie de daos de una bd (acess) en diferentes labels, con el siguiente codigo:

Private Sub Form_Load()

For i = 0 To 102
Dataconsul.rsFaQ.MoveNext
lblFAQ(i).Caption = Dataconsul.rsFaQ(2)
Next i

end sub

cuando se ejecuta por primera vez anda todo bien pero cuando cierro el form y vuelvo a aberirlo da el:
"error 3021 en tiempo de ejecucion.
el valor BOF o EOF es true, o el actual registro se elimino. La operacion solicitada requiere un registro actual."


y marca como linea de error:

lblFAQ(i).Caption = Dataconsul.rsFaQ(2)

Como se puede solucionar?????

GRaciaSSSSS