Tuo codice
do while rs2.eof
scrivi due campi

rs.MoveNext
loop

rs.MoveNext
loop

end if
mio codice
codice:
do while rs2.eof 
scrivi due campi 

rs2.MoveNext  
loop 

rs.MoveNext 
loop 

end if