Compacting MSAccess Database File (.MDB) in ADO

[dotnetprogrammer]

How do I compact MSAccess Database (.MDB) File in VB and ADO?
Thanks,
fred

 

[Catrina]

Dim JRO As JRO.JetEngine
Dim stSource
Dim stTarget

PW$ = "Password"

Set JRO = New JRO.JetEngine

Access.Close

stSource = "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
" Data Source=pdp.mdb;Jet OLEDBatabase Password=" & PW$

stTarget = "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
" Data Source=pdp1.mdb;Jet OLEDB:Engine Type=5;Jet OLEDBatabase Password=" & PW$
Call JRO.CompactDatabase(stSource, stTarget)

Kill "pdp.mdb"
Name "pdp1.mdb" As "pdp.mdb"

Set Access = New ADODB.Connection
Access.CursorLocation = adUseClient
On Error GoTo errCheck
Access.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
" Data Source=pdp.mdb;Jet OLEDBatabase Password=" & PW$
On Error GoTo 0
Exit Sub

 

[dotnetprogrammer]

Thank you, Catrina!