这样的话,我们只有先关闭被打开的表和字段,然后再关闭数据库就OK了;
SubUpdate()
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/bianchengyuyan/）Data1.Recordset.Close
Data1.Database.Close
DBEngine.CompactDatabase"SourceDatabase","TargetDatabase"'压缩数据库
Endsub
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/bianchengyuyan/）->
