dim rs as recordset

set rs=curentdb.openrecordset("Select * from FaturaHareketleri where ID=" & me.ID)

rs.movefirst

Sat=10 ' 10.satırdan başlaması için

do until rs.eof

    belge.Cells(Sat, 5) = rs.fields("Aciklama")

    belge.Cells(Sat, 5).Font.name = "Arial Narrow"

    ..................

    .............

    belge.Cells(Sat, 4) = rs.fields("StokKod")

    belge.Cells(Sat, 4).Font.name = "Arial Narrow"

    ...........

    ...........

    Sat=Sat+1

    rs.movenext

loop

rs.close

gibi bir örnek hem satır artar hem kayıt artar.