Visual Basic - agregar contenido de una base de datos a listbox

buenas compañeros, una pregunta, como puedo realizar que los datos de una seleccion se incrusten en un list box, la tabla esta echa en acces asi es como la tengo.

Dim WithEvents tabla As Recordset

Private Sub Form_Load()
Set tabla = New Recordset
tabla.Open "select * from alumno where activ='s'", bd, adOpenDynamic, adLockOptimistic

esta realizada por ODBC

como realizo para que los datos de la seleccion los represente en un listbox.

mira desea agregar todo el contenido de la seleccion, digamos todos los regirstros que cumplan con la condicion.

ya habia intentado hacer un bucle pero se cicla este es el codigo que tenia:

cont=0
x=tabla.recordcount
if cont < x then
while not tabla.eof
do
list1.additem "tabla!nom"
loop
wend
cont=cont+1
else
msgbox"se ha llegado al final de la tabla"
end if

Que gracioso el otro te dice como hacerlo pero no te pone codigo, que tal ayuda , ja,ja............alli te va ojala que entiendas.........

do until rs.eof
nombre_de_combo.addlist rs.field("campo_de_BD")
loop

eso es cierto se cicla, alguna idea?

gracias, que buena observacion.... lo provare.