我的代码
sdbname = App.Path & "\db.mdb"
sBackupName = App.Path & "\dbbak.mdb"
Set objJRO = New JRO.JetEngine
objJRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sdbname & ";user id=admin;password=1111;Persist  Security  Info=True", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sBackupName & ";user id=admin;password=1111;Persist  Security  Info=True"
运行后最后一句老是报数据库已经被其他用户以独占方式打开的错误,各位给看看是怎么会事