Nach Access DB erstellen - bleibt die Access DB offen

[bendigo]

Hallo

Kann mir einer sagen was ich hier falsch mache? Wenn ich die DB erstelle und die Verbindung wieder schließe, bleibt mir die Access-DB offen (sieht man am LDB File). Mich würde das ja nicht stören, aber die nächste Funktion sollte die DB zippen und dies kann er nicht wenn sie geöffnet ist.

    Private Sub CreateDatabase(ByVal DBName As String, Optional DatabaseFullPath As String = "")
        DBName = Trim(DBName)
        If Not DBName.EndsWith(".mdb") Then DBName &= ".mdb"

        DatabaseFullPath = Trim(DatabaseFullPath)
        If Not String.IsNullOrWhiteSpace(DatabaseFullPath) And Not DatabaseFullPath.EndsWith("\") Then DatabaseFullPath &= "\"

        System.IO.File.Delete(DatabaseFullPath & DBName)

        Dim catalog As ADOX.Catalog = New ADOX.Catalog()
        catalog.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabaseFullPath & DBName)
        catalog = Nothing

    End Sub

gruss
pascal

[bendigo]

problem war

catalog.ActiveConnection.close() muss noch gesetzt werden