ecco come fare
codice:
dim cs as adodb.connection
dim rs as adodb.recordset
dim provider as string
provider = bla b la
set cs = new adodb.connection
set rs = new adodb.recordset
cs.open provider
rs.open tabella,cs,3,3
rs.movefirst
do
list1.additem rs.fields("campo da aggiungere").value
rs.movenext
loop until rs.eof
Facile facile
Nella tabella ci deve essere almeno un record preimpostato altrimenti rs.movefirst darà errore