Dim JRO As JRO.JetEngine
    Set JRO = New JRO.JetEngine
    
    Dim OldFile As String
    Dim NewFile As String


    OldFile = App.Path & "\OldTest.mdb"
    NewFile = App.Path & "\NewTest.mdb"
        
     If Con.State =  0  Then
            Con.Close
            Set Con = Nothing
     End If
     JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0" & _
                                          ";Data Source='" & OldFile & "'" & _
                                          ";Jet OLEDB:Database Password=Test", _
                            "Provider=Microsoft.Jet.OLEDB.4.0" & _
                                          ";Data Source='" & NewFile & "'" & _
                                          ";Jet OLEDB:Database Password=Test"
        Set JRO = Nothing