Visual Basic para Aplicaciones - Compactar BD MDB con Pasword

Amigos, encontré en la página de "elgille" el siguiente código para compactar la Base de datos desde VBA, el problema es que mi BD está con Password y no se donde hacer la modificación. Es una base de datos colocada en un Servidor y a disposición de varias personas, por esa razón está con Password.
Agradeceré a quien pueda me de una mano, adjunto el código:

'Tomar el nombre sin la extensión
sTmp = ""
I = InStr(NombreBase, ".")
If I Then
p = I - 1
Else
p = Len(NombreBase)
End If

sTmp = Left$(NombreBase, p)

'Buscar \, para tomar el directorio (path)
For I = p To 1 Step -1
If Mid$(NombreBase, I, 1) = "\" Then
sTmp = Left$(NombreBase, I)
Exit For
End If
Next
If Right$(sTmp, 1) <> "\" Then
sTmp = sTmp & "\"
End If

'Todo este proceso es para estar seguro de que se quede una copia
'en caso de que falle la compactación...
dBaseTmp = sTmp & "BacKUp ControlPagosDiv.mdb"
If Len(Dir$(dBaseTmp)) Then Kill dBaseTmp
If Len(Dir$(sTmp & "~dBase1.mdb")) Then Kill sTmp & "~dBase1.mdb"

'Esta es la madre del cordero, se pueden usar otras "versiones", es cuestión de adecuarte.
CompactDatabase NombreBase, dBaseTmp, dbLangSpanish, dbVersion20

'Guardar una copia de como estaba antes
Name NombreBase As sTmp & "~dBase1.mdb"
'Esta es la base ya compactada, así que asignar el nombre
Name dBaseTmp As NombreBase
'Borrar los ficheros LDB
If Len(Dir$(sTmp & "*.ldb")) Then Kill sTmp & "*.ldb"