Private Sub Combo1_Click()
 
On Error GoTo Fehlermeldung
 
Dim rs As Recordset
Dim dbFile As String
Dim TabDef As New TableDef
Dim index As New index
Dim Tabellekontrolle As Recordset
Dim Dbkontrolle As Database
Dim sql As String
 
 
'Datenbank mit Tabelle öffenen
 
dbFile = App.Path + "\Inventar.mdb"
 
Set Dbkontrolle = Workspaces(0).OpenDatabase(dbFile, False, False)
Set Tabellekontrolle = Dbkontrolle.OpenRecordset("Chars")
 
 
sql = "SELECT * FROM [" & Combo1.text & "] order by gegenstand asc"             _
    'auswahl des Tabellenamen
Data1.RecordSource = sql                                                        _
'setzen des tabellenzugriff
Data1.Refresh
 
'Datenbank und Tabelle schliessen
 
Tabellekontrolle.Close 'tabelle schliessen
Dbkontrolle.Close 'datenbank schliessen
 
Set Tabellekontrolle = Nothing 'speicher freigeben
Set Dbkontrolle = Nothing 'speicher freigeben
 
Exit Sub
 
Fehlermeldung:
 
    MsgBox Err.Description, 16, "Problem"
    Exit Sub
 
End Sub