<code>Private Sub cmdDBSelect()
  <font color=green>' Datenbank auswählen</font>
  On Local Error Resume Next
  With CommonDialog1
    .CancelError = True
    .Filter = "Access-Datenbank (*.mdb)|*.mdb"
    .ShowOpen
    If Err = 0 Then
      <font color=green>' Tabellen in der ComoBox anzeigen</font>
      FillComboBox .Filename
    End If
  End With
End Sub
 
Private Sub FillComboBox(ByVal dbFile As String)
  Dim Db As Database
  Dim TabDef As TableDef
 
  Set Db = OpenDatabase(dbFile)
  Combo1.Clear
  With Db
    For Each TabDef In .TableDefs
      If UCase$(Left$(TabDef.Name, 4)) <> "MSYS" Then
        Combo1.AddItem TabDef.Name
      End If
    Next
  End With
  Db.Close
  Set Db = Nothing
End Sub</code>