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