codice:
Imports System.IO
Imports Microsoft.Office.Interop.Access

Module Module1

    Sub Main()
        Dim accessFile As String = "C:\tmp\prova.accdb"
        Dim tempFile As String = Path.Combine(Path.GetDirectoryName(accessFile), Path.GetRandomFileName() + Path.GetExtension(accessFile))

        Dim dao As New Dao.DBEngine()
        dao.CompactDatabase(accessFile, tempFile)
        File.Delete(accessFile)
        File.Move(tempFile, accessFile)
    End Sub

End Module