Dim DB As Connection
Dim Rs As Recordset
 
Private Sub Form_Load()
Set DB = New Connection
DB.CursorLocation = adUseClient
DB.Provider = "Microsoft.Jet.OLEDB.4.0"
DB.Open "C:\Deine.mdb"
 
Set Rs = DB.OpenSchema(adSchemaTables)
Do Until Rs.EOF
If Not Mid$(Rs("TABLE_NAME"), 1, 4) = "MSys" Then
List1.AddItem Rs("TABLE_NAME")
End If
Rs.MoveNext
Loop
 
Rs.Close
DB.Close
End Sub