Puoi provare a lavorare con i "segnalibri" della griglia in questo modo:

codice:
Private Sub Command1_Click()
'grid1 è la griglia , data1 è l'adodc 
    If Grid1.Bookmark <= Data1.Recordset.RecordCount - 1 Then
       Grid1.Bookmark = Grid1.Bookmark + 1
       Grid1.Refresh
    End If
End Sub
Ciao