Option Explicit
   Dim con As ADODB.Connection
   Dim cat As ADOX.Catalog
   Dim tbl As ADOX.Table
   Dim col As ADOX.Column
 
Private Sub Form_Load()
   Set con = New ADODB.Connection
   Set cat = New ADOX.Catalog
 
   With con
      .CursorLocation = adUseClient
      .Mode = adModeShareDenyNone
      .Provider = "Microsoft.Jet.OLEDB.4.0"
      .ConnectionString = "G:\Klausur.mdb" 'ANPASSEN
      .Open
   End With
 
   List1.Clear
   cat.ActiveConnection = con
   For Each tbl In cat.Tables
      If tbl.Type = "TABLE" Then
         List1.AddItem tbl.Name
      End If
   Next tbl
   List1.ListIndex = 0
End Sub
 
Private Sub List1_Click()
   List2.Clear
   Set tbl = cat.Tables(List1.List(List1.ListIndex))
   For Each col In tbl.Columns
      List2.AddItem col.Name
   Next
End Sub