Olá Wilks
Apesar de estar dando alguns problemas, Fiz o seguinte:
Inseri no Form:
1 DBGrid
1 DataControl
1 VScroll
Após cooquei o seguinte código no Form:
Private Sub VScroll1_Change()
Data1.Recordset.Move VScroll1.Value
End Sub
Private Sub VScroll1_Scroll()
Data1.Recordset.Move VScroll1.Value
End Sub
Espero que ajude.
T+
Rinaldo
