Código:
Log.SQL = "select * from PROFESOR"
Log.rst.Open Log.SQL, Log.cnn, adOpenDynamic, adLockOptimistic
If Not Log.rst.EOF Then
Log.rst.MoveNext
Text4(1).Text = Log.rst.Fields(0)
Text5(2).Text = Log.rst.Fields(1)
Text6(3).Text = Log.rst.Fields(2)
Text7(4).Text = Log.rst.Fields(3)
Text8(5).Text = Log.rst.Fields(4)
Text9(6).Text = Log.rst.Fields(5)
Text10(7).Text = Log.rst.Fields(6)
Text11(8).Text = Log.rst.Fields(7)
Text12(9).Text = Log.rst.Fields(8)
End If
If Log.rst.EOF Then
Log.rst.MovePrevious
End If
tengo el siguiente codigo, funciona, pero no como deberia jajajaj
el problema es que si tengo 3 registro avanza solamente hasta el 2, no se porque no sigue avanzando
¿que puede ser?
gracias