Private Sub Command1_Click()
  Dim oConn As New Connection
  Dim oRs As Recordset
 
  With oConn
    ' Provider: Access 2000/XP
    .Provider = "Microsoft.Jet.OLEDB.4.0"
 
    ' Pfad zur Access-Datenbank
    .Properties("Data Source") = "c:\db\datenbank.mdb"
 
    ' Cursor-Location
    .CursorLocation = adUseClient
 
    ' Connection öffnen
    .Open
 
    ' Recordset über Tabellen-Schema erstellen
    Set oRs = .OpenSchema(adSchemaTables)
 
    ' Recordset durchlaufen und alle Tabellen auflisten
    Do Until oRs.EOF
      If oRs("TABLE_TYPE") = "TABLE" Then
        List1.AddItem oRs("TABLE_NAME")
      End If
      oRs.MoveNext
    Loop
  End With
 
  ' Recordset und Connection schließen
  oRs.Close
  oConn.Close
End Sub