Per farli scorrere puoi utilizzare il metodo .MoveNext del
recordset del data1.

codice:
    Dim a As Integer
    Do While Not Data1.Recordset.EOF
        ' Inserire delle operazioni, od un ciclo di ritardo  
        Data1.Recordset.MoveNext
    Loop
Tieni presente, però, che questo loop è troppo veloce, per cui
prima della istruzione Data1.Recordset.MoveNext ci andrebbe
qualcosa che ti rallenti il ciclo.

Ciao,