Hallo,
die einfachste Möglichkeit ist folgende:
Du definierst einen Zähler und initialisierst ihn, läßt ihn innerhalb von
do while not rs.eof
hochzählen und führst den
For each Feld in rs.Fields
Block nur aus wenn der Zähler die entsprechenden Werte besitzt:
z.B.
...
Dim i
i=0
do while not rs.eof
i=i+1
if i >= 30 and i <=40 then
For each Feld in rs.Fields
.....
next
end if
rs.movenext
loop
....
Gruß Ralf