Visual Basic - Compact & Repair

Hola gente, tengo el siguiente inconveniente, estoy usando la referencia JRO para poder compactar una base de datos ACCESS que crece desmesuradamente luego de un proceso de importacion de datos. El tema es que la funcion que cree no llega a compactar la BD al maximo, (por ej desde Access baja de 130 mb a 25 mb, y con mi funcion llega tan solo a 100 mb), el codigo es el siguiente:

Function CompactDB()
Dim Compact As New JRO.JetEngine
Dim Base1 As String, Base2 As String
Base1 = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=D:\bd1.mdb""
Base2 = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=D:\bd2.mdb""
Compact.CompactDatabase Base1, Base2
Base1 = Mid(Base1, 46)
Base2 = Mid(Base2, 46)
Kill Base1
Name Base2 As Base1
End Function

Alguna sugerencia???

Hola Cala,

Sabes, yo tambien uso una rutina similar a la tuya, no tengo un archivo tan grande (20 Mb), sin embargo obtuve los mismos resultados que hacer la funcion dentro del Access.

Saludos.