Per compattare il db devi fare:
Dim jro As JRO.JetEngine
jro = New JRO.JetEngine
jro.CompactDatabase("Provider=Microsoft.ACE.OLEDB. 12.0;Data Source=C:\Aziendale 2015\Aziendale 2015.mdb;Jet OLEDB:Engine Type=5", _
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Aziendale 2015\Aziendale 2015 compact.mdb;Jet OLEDB:Engine Type=5")
My.Computer.FileSystem.DeleteFile("C:\Aziendale 2015\Aziendale 2015.mdb")
My.Computer.FileSystem.RenameFile("C:\Aziendale 2015\Aziendale 2015 compact.mdb", "Aziendale 2015.mdb")
Nella cartella di debug devi avere i seguenti file:

Interop.ADODB.dll
Iterop.DAO.dll
Interop.JRO.dll