Visual Basic - Compactar Base de Datos ????

No se como hacer desde V.B., para compactar la Base de Datos (Access).
Si me podes ayudar, desde ya te lo agradezco...

Hola este código de puede servir:

Dim Origen As String, Destino As String, OrigenX As String
On Error GoTo Error
MousePointer = 11
OrigenX = "Hote2004.Mdb"
Destino = App.path & "\HotelPaso.Mdb"
Origen = App.path & "\" & OrigenX
'*//* Cierro Base Para comenzar la transacción
dbsHOTEL.Close
'*//* Compacta y Repara la Base de Datos
DBEngine.CompactDatabase Origen, Destino, , , ";pwd=ZAES9990v"
Kill Origen
Name Destino As Origen
'*//* Abre Nuevamente Base de Datos para Habilitar Sistema
dbsHOTEL.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source = " & App.path & "\" & OrigenX & ";" & _
" Jet OLEDB:Database Password = ZAES9990v "
MousePointer = 0
MsgBox "Proceso Finalizado...", vbExclamation, "OK!"

Donde ZAES9990v es la contraseña que tiene access, si tu bd no tiene contraseña le quitas el Database Password. Saludos desde CHILE

FELIPE