The following code is returning the error: Cannot perform this operation; features in this version are not available in databases with older formats.
This is being performed on an Access2k database using Microsoft Jet and Replication Objects 2.1 library.



Private Sub Command1_Click()
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider =Microsoft.Jet.OLEDB.4.0;Data Source = C:\SMDR1.mdb", _
"Provider = Microsoft.Jet.OLEDB.4.0;Data Source=C:\CompactSMDR1.mdb;Jet OLEDB:Engine Type=4"
End Sub