Public Sub OpenDB(dbFilename As String)
Dim i As Integer
Dim nodeX As Node
 
Dim dbName As String
 
    dbName = App.Path
    If Right$(dbFilename, 1) <> "\" Then dbName = dbName & "\"
    dbName = dbName & dbFilename
 
    MasterTable = "Language"
    Filter = ""
 
    With DBKit
        With .TreeView1
            Set DB = OpenDatabase(dbName)
            ' Öffne Verbindung zur Datenbank
            modDB.CreateTableList MasterTable
            ' Erstellt eine Liste der Tabellennamen aus der Datenbank
            Set nodeX = .Nodes.Add(, , "MyPrompt 20XP DataBase", , 1)
                nodeX.Text = "MyPrompt 20XP DataBase"
            ' Erstellt den Hauptkonoten
            modDB.GetDB MasterTable, nodeX
            ' Einlesen der Baumstruktur
            .Nodes(1).Expanded = True
            ' Auffalten des 1. Eintrages
            DB.Close
            ' Datenbankverbindung schließen
         End With
    End With
End Sub