前提条件
如果没有安装office的话，需要安装引擎
安装了office就不用安装引擎
连接数据库
Dim plMydb As Microsoft.Office.Interop.Access.Dao.Database
plMydb = DAODBEngine_definst.OpenDatabase(ppDataBase)
备份数据库
AccessDB.CompactDatabase(iMDBFile, iTMPFile)
原文：http://www.cnblogs.com/jiningning/p/6358764.html