壓縮mdb檔後,用visdata 工具開啟資料檔其資料表欄會遺失(編號:8943)

當我用jro壓縮後用visdata 工具開啟資料檔其資料表欄會遺失
所用語法為:
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\acc\acc.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\acc\acc5.mdb;Jet OLEDB:Engine Type=4"
但手動用visdata所提供的壓縮功能則可正常開啟且資料表內的欄位不會遺失.
其原資料檔及資料表是用visdata所建立.