Hola
Supongo que sera un error al copiar el código al foro, ya que en lugar de inventario, pones intentario además de eso inténtalo con
val(inventario.text).
Para pasar a un campo de texto multilinea realiza el mismo while pero en lugar de añadir al list1 prueba a añadirlo con esta linea de código:
Código:
inventario.text = inventario.text & vbCr & rs.fields(0)
--Saludos--