Visual Basic - pasar de visual a word

hola! como hago para pasar una base de datos de visual a word?
el asunto es que paso todo pero me escribe solamente el ultimo registro.
lo trato asi
data =base.recordset.fields("precio")
data = base.recodset.fields("producto")
cdocument.range.text = precio + chr(9) + producto +chr(10)+chr(13)
esto dentro de un do while , pero solo me imprime el ultimo
que estoy haciendo mal?? como puedo decirle a word que imprima una linea en blanco??

Prueba con
cdocument.range.text = cdocument.range.text & precio + chr(9) + producto +chr(10)+chr(13)