Set db =OpenDatabase (...)
Set td =db.CreateTableDef(...TABELLE...)
td.connect=ODBC; DATABASE=Name_der_Datenbank;  UID=Benutzername; _
  PWD=Das_Passwort; DSN=Die_Datenquelle; _
  LOGINTIMEOUT=Max_Zeit_fuer_den_Verbindungsaufbau"
sql = "SELECT * from Tabelle"
Set td = db.OpenRecordset(sql)
 
Do Until td.EOF
   List1.AddItem td.Fields(0).Value & chrs$(9) & td.Fields(1).Value 
  '(Spalte 1 und 2 werden  an die Listbox übergeben bis zum letzten Datensatz)
   td.MoveNext
Loop