Надо добавить в ConnectionString параметр "Jet OLEDB:database password=YourPassword;"

CompactDatabase Method


Copies and compacts a closed database, and gives you the option of changing its version, collating order, encryption, and other options.

Syntax

JetEngine.CompactDatabase(SourceConnection, DestConnection)

Parameters

SourceConnection A String value specifying a connection to the source database to be compacted. An error will occur if the database specified by SourceConnection is already open.

DestConnection A String value specifying a connection to the destination database to be created by the compaction. An error will occur if the database specified by DestConnection already exists or another file with that name already exists.

Т.е. надо так:
je.CompactDatabase "Data Source=" & strBE & ";Jet OLEDB:database password=YourPassword", _
"Data Source=" & strBETemp & ";"

авторТолько вот одно но...
После сжатия базы пароль пропадает :))
Не подскажете, как с этим бороться?
Очевидно, добавить аналогичный параметр в строку подключения destination database.