CompactDatabase and ADO

Using VB6 and Access 2000

When you want to compact a database and your using ADO,
do you still use:-

DBEngine.CompactDatabase "olddb", "newDB"

In the VB docs it only ever references DAO when you
look up CompactDatabase

Is there another way?

Thanks,

SeanR

[Clunietp]

compact a database using ADO

'uses ADO 2.x and Microsoft Jet and Replication Objects 2.x

'declare variables
Dim objJRO As JRO.JetEngine
Dim strConnSource As String
Dim strConnDestination As String

'set connection string info
strConnSource = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Nwind2k.mdb"
strConnDestination = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\NewDb.mdb"

'instantiate object
Set objJRO = New JRO.JetEngine

'compact database from source to destination
objJRO.CompactDatabase strConnSource, strConnDestination

'release objects
Set objJRO = Nothing

Thanks for your help ClientP

[Clunietp]

ClientP?

Close enough.... :)

Sorry abount that ClunietP.

It should teach me to look more closely and not
just scan.

SeanR