Imports System.Data.SQLite
Public Class clsdbtools

    Dim SQLconnect As New SQLite.SQLiteConnection()

    Public Function Compress_Database()
        SQLconnect.ConnectionString = Globals.Datenbank
        Dim sqlcmd As New SQLite.SQLiteCommand(SQLconnect)
        sqlcmd.CommandText = "VACUUM"
        SQLconnect.Open()
        sqlcmd.ExecuteNonQuery()
        SQLconnect.Close()
        sqlcmd.Dispose()
    End Function


End Class