Dim DB As Connection
Dim Rs As Recordset
 
Set DB = New Connection
DB.CursorLocation = adUseClient
DB.Provider = "Microsoft.Jet.OLEDB.4.0"
DB.Open "DeineDatenbank.mdb"
 
Private Sub Commnd1_Click()
Set Rs = DB.OpenSchema(adSchemaTables)
 
Do Until Rs.EOF
List1.AddItem Rs("TABLE_NAME")
Rs.MoveNext
Loop
End Sub