Visual Basic - Compactar base de datos

Quisiera saber si hay alguna manera de compactar una base de datos de acces desde VB, esto para evitar que la base de datos se infle demasiado.

Gracias por la ayuda.

Si ...

Existe la clase JRO
mediante esa referencia puedes compactar desde VB6 una base de datos de access 2000 ..

ahi va ...

Public Sub CompactarBase()

On Error GoTo VerErrores

Dim StrEliminarBase As String
Dim MiBase1 As String
Dim MiBase2 As String
Dim BaseInicial As String
Dim BaseFinal As String
Dim jro1 As New JRO.JetEngine

If StrMiBase.State = 1 Then
Call CerrarCon
End If

MiBase1 = LaRuta & "\xxxx.mdb;"
MiBase2 = LaRuta & "\xxxxNueva.mdb;"

BaseInicial = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source="
BaseFinal = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source="

BaseInicial = BaseInicial & MiBase1 & _
"Jet OLEDB:Database Password=xxxx"

BaseFinal = BaseFinal & MiBase2 & _
"Jet OLEDB:Database Password=xxxx"

jro1.CompactDatabase BaseInicial, BaseFinal

Kill LaRuta & "\xxxx.mdb"

jro1.CompactDatabase BaseFinal, BaseInicial

Kill LaRuta & "\xxxNueva.mdb"

Set jro1 = Nothing

End Sub


Saludos desde bs as argentina !!!!!!!!!!!!!

Hola que tal.
un código parecido al tuyo encontré en la página de Guille. Al ejecutarlo y cuando llega a

je.CompactDatabase "Data Source=" ....

aparece un MsgBox con el siguiente error:

-2147467259
No se pudo encontrar el archivo ISAM instalable

lo he ejecutado en un ordenador con W2003, y dos con Windows XP y en los tres ocurre el mismo error. He mirado en la ayuda de VB pero no encuentro nada.
¿Sabes a qué se deve este error y que hay que hacer para solucionarlo?

Gracias de antemano

Un saludo

(Indexed Sequential Access Method) Método de acceso secuencial indexado. Método común de acceso a disco que almacena datos en forma secuencial, al tiempo que mantiene un índice de campos claves para todos los registros en el archivo para acceso directo. El orden secuencial sería el más comúnmente usado para el procesamiento por lotes y la impresión (número de cuenta, nombre, etc.).

ESE ERROR ES DEBIDO A QUE NO ENCUENTRA LA REFERENCIA DE JRO Ó QUE TE FALTA EL MDAC 2.7

Saludos ...