Can somebody explain where I may be making a mistake. I'm trying to compact an access database using the JetEngine object. Here is my code:

Dim myJet As JRO.JetEngine
Set myJet = New JRO.JetEngine
myJet.CompactDatabase gstrConnection, gstrCompact
Set myJet = Nothing

I'm getting this error:

Run time error -2147217887 (80040e21)

Multi-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.