سلام
دو راه داری:
1- استفاده از DBList
2- با یه حلقه:

For i=0 to data1.recordset.recordsource
list1.additem data1.recordset.fields(2)
next

با این کد اطلاعات فیلد سوم به لیست باکس اضافه میشن.