Prueba haciendo esto:
Código:
Log.SQL = "select * from PROFESOR"
Log.rst.Open Log.SQL, Log.cnn, adOpenDynamic, adLockOptimistic
while log.rst.EOF = false
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)
Log.rst.MoveNext
End If
El comando movenext debe de ponerlo al final, para que te muestre el primero.