Hola.
Yo para casos asi utilizo el componente MSHFlexgird y a la propiedad DataSource le asigno el contenido de la busqueda (asi evito recorrer uno por uno y obviamente es mucho mas rapido)
Mi MSHFlexgird se llama Flex y lo utilizo asi.
Código:
Set flex.DataSource = rs
'Rs es el resocrset. Equivlaente a tu Dbr1 creo
Espero te sirva