Программное сжатие базы MS Access 97

Sub CompactDatabaseX()
 
    Dim dbsNorthwind As Database
 
    Set dbsNorthwind = OpenDatabase('Northwind.mdb')
 
    ' Show the properties of the original database.
    With dbsNorthwind
        Debug.Print .Name & ', version ' & .Version
        Debug.Print '    CollatingOrder = ' & .CollatingOrder
        .Close
    End With
 
    ' Make sure there isn't already a file with the 
    ' name of the compacted database.
    If Dir('NwindKorean.mdb') <> '' Then _
        Kill 'NwindKorean.mdb'
 
' This statement creates a compact version of the
    ' Northwind database that uses a Korean language
    ' collating order.
    DBEngine.CompactDatabase 'Northwind.mdb', _
        'NwindKorean.mdb', dbLangKorean
 
    Set dbsNorthwind = OpenDatabase('NwindKorean.mdb')
 
    ' Show the properties of the compacted database.
    With dbsNorthwind
        Debug.Print .Name & ', version ' & .Version
        Debug.Print '    CollatingOrder = ' & .CollatingOrder
        .Close
    End With
 
End Sub

Dim JRO As JetEngine
 
Set JRO = New JRO.JetEngine
 
JRO.CompactDatabase 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\baseplanz.mdb', _
 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\baseplanz.mdb;'

Dim JRO As JetEngine
Set JRO = New JRO.JetEngine
JRO.CompactDatabase 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' & DBPlace & ', ' & cn