allora...dopo che apri il record col codice che ti ho scritto usi questo:
codice:
list1.clear
do until rsrecordset.eof
       list1.additem rsrecordset("tuoCampo")
       rsrecordset.MoveNext
loop

AH! Nella select che hai scritto devi mettere Text1.text non text1 e basta