Error 3021 en vb6 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
