代码片段：通过编程方式压缩.accdb文件

在VB.Net安装有VSTO的前提下，引用Microsoft.Office.Interop.Access.Dao

实现代码如下：

Imports Microsoft.Office.Interop.Access.Dao

Module Module1

  Sub Main()
    Dim db As New DBEngine
    db.CompactDatabase("H:\My Documents\算神.accdb", "H:\My Documents\算神1.accdb")
    Console.Read()
  End Sub

End Module