前提条件

如果没有安装office的话，需要安装引擎

安装了office就不用安装引擎

连接数据库

Dim plMydb As Microsoft.Office.Interop.Access.Dao.Database
plMydb = DAODBEngine_definst.OpenDatabase(ppDataBase)

备份数据库

AccessDB.CompactDatabase(iMDBFile, iTMPFile) 

access 连接数据库