Mensaje enviado por "Ramón Egido Sánchez" <regido@ferroatlantica.es>

Te confirmo que en ese link viene un ejemplo, efectivamente hay que hacerlo en el momento de compactar la bd. Tienes que añadir en tu proyecto una referencia a JRO.

Código de la web de Microsoft:

Sub JROChangeDatabasePassword()

   Dim je As New JRO.JetEngine

   ' Make sure there isn't already a file with the
   ' name of the compacted database.
   If Dir(".\NewNorthWind.mdb") <> "" Then _
      Kill ".\NewNorthWind.mdb"

   ' Compact the database specifying the new database password
   je.CompactDatabase "Data Source=.\NorthWind.mdb;", _
      "Data Source=.\NewNorthWind.mdb;" & _
      "Jet OLEDB:Database Password=password"

   ' Delete the original database
   Kill ".\NorthWind.mdb"

   ' Rename the file back to the original name
   Name ".\NewNorthWind.mdb" As ".\NorthWind.mdb"

End Sub


SUERTE. Un Saludo.
Ramón Egido Sánchez