Ayuda posible con ListBox?

Hola amigos tengo un problema pero quizas no haya mas solucion:

1.- 1 LISTBOX
2.- Agrego articulos con consulta SQL, (desde base de datos de mdb)
3.- Cantidad de articulos: 3500

Historia breve:
Originalmente hacia el ADDITEM en una COMBOBOX lo cual tardaba
aproximandamente (en agregar los 3mil articulos) 3 segundos, en red,
localmente era 1 segundo.
Ahora es necesario que haga el ADDITEM en una LISTBOX.

Problema:
TIEMPO que tarda en agregar el ADDITEM los 3mil articulos a la LISTBOX mas o
menos 10 segundos en red, con pentium 3 10/100.

Alguna idea para agilizar esto??
podria ser esto?:
1.- que hay una menera de hacer mas rapido el ADDITEM a una listobox.
2.- o cambiar y usar COMBOBOX y que haya una manera de mostrar desplegada la
combobox por default (el usuario no usa mouse), podria ser algo relacionado
con DROP, se podra?

este es el codigo:

ListBox1.ColumnCount = 3
With RecrdSet
While Not .EOF
ListBox1.AddItem
ListBox1.List(cont, 0) = RecrdSet!DESCRIPCION
ListBox1.List(cont, 1) = RecrdSet!EXISTENCIA
ListBox1.List(cont, 2) = Format(RecrdSet!PVENT, "CURRENCY")
cont = cont + 1
.MoveNext
Wend
End With
ListBox1.TextColumn = 1


Saludos a todos y gracias por su cooperacion
PD se aceptan sugerencias de todas!

_____________________________
Rodrigo
_____________________________