Si se quiere compactar desde VB:
Option Explicit
Public Function compactDB(ByVal SOUR_path As String, _
ByVal DEST_path As String) As Boolean
On Error GoTo Err_compact
Private JRO As New JRO.JetEngine
Private DB_sour As String, DB_dest As String
DoEvents
DB_sour = `Provider=Microsoft.Jet.OLEDB.4.0;Data Source=` _
& SOUR_path
DB_dest = `Provider=Microsoft.Jet.OLEDB.4.0;Data Source=` _
& DEST_path & ` ;Jet OLEDB:Engine Type=5`
JRO.CompactDatabase DB_sour, DB_dest
compactDB = True
Exit Function
Err_compact:
compactDB = False
MsgBox Err.Description, vbExclamation
End Function
Es otra opcion...
