Public Sub adhCompactDatabase( _
 strSource As String, _
 Optional strDestination As String = "e:\Backup.mdb")  
    Dim jet As New JRO.JetEngine        
    ' Delete any existing files with the
    ' name of the compacted database.
    If Dir(strDestination) <> "" Then
        Kill strDestination
    End If    
    ' Compact the database specifying
    ' the new database password
    jet.CompactDatabase _
     "Provider=Microsoft.Jet.OLEDB.4.0;" & _
     "Data Source=" & strSource, _
     "Data Source=" & strDestination      
    ' Delete the original database
    Kill strSource  
    ' Rename the Backup to the original name
    Name strDestination As strSource
End Sub

Dim jet As New JRO.JetEngine