Visual Basic - Compactar BD Access

¿Se puede Compactar Base de Datos de Access desde VB 6? ¿Cómo sería? Lo que desde Access se hace desde: Herramientas -> Utilidades de la Base de Datos -> Compactar base de datos.
Gracias.

Fijate con el método CompactDatabase de DAO, en la MSDN está este ejemplo:

Sub CompactDatabaseX()

Dim dbsNorthwind As Database

Set dbsNorthwind = OpenDatabase("Northwind.mdb")

With dbsNorthwind
Debug.Print .Name & ", version " & .Version
Debug.Print " CollatingOrder = " & .CollatingOrder
.Close
End With

If Dir("NwindKorean.mdb") <> "" Then _
Kill "NwindKorean.mdb"

DBEngine.CompactDatabase "Northwind.mdb", _
"NwindKorean.mdb", dbLangKorean

Set dbsNorthwind = OpenDatabase("NwindKorean.mdb")

With dbsNorthwind
Debug.Print .Name & ", version " & .Version
Debug.Print " CollatingOrder = " & .CollatingOrder
.Close
End With

End Sub

Al querer hacerlo me muestra un error en el DBEngine.CompactDatabase, ¿por qué será? (Este es el error: Error 91 en tiempo de ejecución. Variable de tipo Object o la variable de bloque With no está establecida.)
¿Hay que declarar a DBEngine como qué?
Yo tengo una referencia a Microsoft DAO 3.51 Objetc Library. ¿Está bien esto?
Gracias.