RE:Como compactar BD de Access
Usa este codigo sacado de www.ambsoftware.com
Compacta una base de datos de Access
Mediante este código lograremos compactar una base de datos de Microsoft Access.
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
Saludos desde Lima