' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !!!!
 
Private Sub Form_Load()
Dim DB As ADODB.Connection
Dim RS As ADODB.Recordset
 
Set DB = New ADODB.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
 
Set RS = Nothing
Set DB = Nothing
 
End Sub