Data report y rstmovenext

[carnero]

hola como estan, quiero saber como hago un reporte con el recorset con mas de un registro.
por ejemplo tengo

for i = 0 to list1.listcount -1

sql= "select * from lala where id = list1"
open.rst

while rst.eof = false

rst.field("0") agregar datareport
rst.field("1") agregar datareport
rst.field("2") agregar datareport

wend
next

estoy trabajando con visual basic 6.0
y acceses 2007.