Visual Basic - Compactar DB

Hola,
Alguien tiene un ejemplo, o sabe alguna instruccion para compactar y reparar la DB en Acces desde VB 6.0
Gracias
Alex.

Referencia la librería "Microsoft Access 11Object library" y entonces:

Dim a As Access.Application
a.CompactRepair "c:\origen.mdb", "c:\origen_compactado.mdb", False

Esto es para Access 2003, para Access anteriores la instrucción es parecida, aunque algo diferente.