Привет всем.
В интернете нашел код для сжатия базы данных на MSAccess с помошью библиотеки Microsoft Jet and Replication Objects 2.6 library из Project/References:

Public Sub MyCompactDatabase(BDpath$)
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine

jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & BDpath & "\db1.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & BDpath & "\db1_1.mdb;Jet OLEDB:Engine Type=4"
Set jro = Nothing

Kill BDpath & "\db1.mdb"
Name BDpath & "\db1_1.mdb" As BDpath & "\db1.mdb"
End Sub

При запуске процедуры выдает ошибку: -2147467259 выполнение операции невозможно; возможности данной версии недоступны в базах данных старого формата.

Я работаю с данной библиотекой в первые, раньше все это делал в DAO через CompactDatabase но теперь хочу отойти от DAO вообще. Если кто-нибуть уже работал или встречался с этим буду блогадарен за помошь.

Да кстати база данных у меня не старая, стоит MSAccess 2003. База данных формата Access 2002-2003.

Konst_One если можешь дай пожалуйста ссылку