使用 ADO 來壓縮或修復 MS Access 2000資料庫(編號：1553)

以(Microsoft Jet and Replication Objects 2.1 library)
Dim JRO As JetEngine
Set JRO = New JetEngine
JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; _
Data Source=" & dbFileName, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Tmp_FileName & ";Jet OLEDB:Engine Type=4"
可壓縮MS Access 97,但若MS Access 2000會出錯,
請問可有解答?