Mostrar datos en un TextBox ordenados.

[guif]

Mostrar datos en un TextBox ordenados.


Estoy intentando mostrar unos datos sacados de una BB.DD. de SQL a un campo TextBox multiliniea y con scroll.
El caso es que se muestran los datos pero no ordenandamente sino que se solapan y solo acaba apareciendo uno.

Si lo hago con un listbox, si que me deja ya que existe la propiedad .AddItem. En un TextBox como seria???
Esto lo necesito ya que necesitaria poder poner en el portapapeles datos del TextBox. Porque en un listbox no puedo hacer esto verdad?

El codigo que utilizo para ver los campos en un Listbox es el siguiente:

Set rs = cnn.Execute(sql1)
Do While Not rs.EOF
List1.AddItem (rs("clave"))
rs.MoveNext
Loop
rs.Close


Aprovecho para comentaros el porque no me funciona esta linea al hacer una consulta a una BBDD SQL.
Tengo un TextBox llamado inventario.
Si utilizo esta formula si funciona:

sql2 = "select p.clave AS clave from QSMTOWN.peticiones p, QSMTOWN.activos a where p.id_inventario=a.id_activo(+) and a.id_inventario=111222"

Si utilitzo mi campo TextBox no. Porque????

sql2 = "select p.clave AS clave from QSMTOWN.peticiones p, QSMTOWN.activos a where p.id_inventario=a.id_activo(+) and a.id_inventario=" & intentario

Un problema de comillas???

gracias!