'access Dim objcon As New ADODB.Connection Dim objrs As New ADODB.Recordset objcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=basic;Data Source=" & App.Path & "\infoTable.mdb" objrs.Open "select * from infoTable ", objcon, 3, 1 while not objrs.eof list1.additem objrs.fields(0) objrs.movenext wend
'access
Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset
objcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=basic;Data Source=" & App.Path & "\infoTable.mdb"
objrs.Open "select * from infoTable ", objcon, 3, 1
while not objrs.eof
list1.additem objrs.fields(0)
objrs.movenext
wend