Visual Basic - programador y operador de sistemas computacionales

deseo saber como puedo sacr un listado, utilizando un textbox y varios listbox
ejemplo:
label textbox1 comand1

label2 label3 label4 label5
listbox1 listbox2 listbox3 listbox4

donde:
textbox1= nombre
listbox1,listbox2, listbox3, listbox4 deben aparecer informacion determinada de una persona o de un id

si púeden enviar un ejemplo valido se le agradeceria


sub form_load()
set base =open database("dir dta base")
set dblista = base.openrecordset("tabla", opentable)
if lista.recordcount>0 then
lista.movefirst
do while not lista.eof
sal1.lista!=list1
sal2.lista!=list2
sal3.lista!=list3
sal4.lista!=list4
list1.additem.sal1
list2.additem.sal2
list3.additem.sal3
list4.additem.sal4
loops
endif
end sub


private sub list1_click()
list2.listindex=list1.index
list3.listindex=list1.index
list4.listindex=list1.index
end sub

esta codificacion esta mala deseo saber como puedo reparar esta codificacion y poder sacar un listado con un textbox y 4 o mas list box.
de ante mano muchisimas gracias