Visual Basic - Como compactar BD de Access

Necesitaria saber como puedo hacer para compactar una base de datos de Access desde Visual
Gracias
Marina

Como estás???

Puedes especificar qué tipo de componente usas DAO o ADO?
De esta manera puedo darte la respuesta

Gracias por responderme...
Estoy utilizando ADO para conectarme con Access

Gracias
Marina

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

Puedes intentar también en www.planet-source-code.com, encontré muchos ejemplos de manipulación de Access