有些棘手,求高手指点 :) 关于数据库压缩的问题...

1    Dim mJRO As New JRO.JetEngine
2    mJRO.CompactDatabase strValSource$, strValDestination$
3    Set mJRO = Nothing这个压缩数据库 可以 关键是当数据库出问题时, 第2行 报错, 怎么办, 怎么处理? 根本进行不了压缩 
-2147467259 不可以识别的数据库, 
没办法了吗? 就得用  ACCESS修复他?请指点一下 :)