當我用jro壓縮後用visdata 工具開啟資料檔其資料表欄位會遺失(編號：8944)

當我用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所建立.