DBEngine.CompactDatabase App.Path & "\old.mdb", App.Path  _
& "\DBBAK\new.mdb", , , ";pwd=" & password
不要用第三方控件,只要用这个语句就可以了,不过用前请关闭数据库,而且是压缩到一个新的文件中。新文件如果与现有文件同名,事先要KILL掉同名文件。