如何通过编程压缩Access2007或Access2010数据库文件

在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

有必要吗？不是在自定义选项那里就有一个选项，可以在关闭时自动进行压缩的吗？在OFFICE安右键——选择自定义按钮——然后选当前数据库，那里有一个关闭时压缩选项！经常ACCESS的压缩和备份是非常有必要的。。因为当数据量大的时候很容易出错，经常压缩就不会~~~谢谢~

---