Visual Basic - recorrer todos los atributos de un campo

hola ke tal , utilizo el edito de visual de access y me ha surgido un problema ,como me lo hago desde un informe con el evento al printar
para que cuando me vaya ha printar un campo me recorrar todos los atributos de un campo

paso un trozo de codigo
------------------------------------------------------------------------------------------------

tbrecorset.movefirst

do while not tbrecorset.EOF

tbrecorset.movenext
if me!texto1 = tbloriginal.atributoorigen then 'texto1 hara referencia a un campo de mi informe
palabra = palabra & "," & tbloriginal.atributodestino
endif

loop

-----------------------

atorigen atdestino

banana platano
arroz arroz integral
arroz arroz basmalti

Aqui un ejemplo de tabla cutre

----------------------

el informe tiene una entrada que se corresponde con el atorigen,bien yo kiero ke printe el atorigen y todos los atridestino ke se correspondan con el origen

-*-------------

en el ejmeplo de la tabla de arriba,el resultado en el informe deberia ser este

banana platano
arroz , arroz integral , arroz basmalti

espero haberme explicado gracias