Colocar senha geral em um banco de dados Access

procedure TForm1.Button1Click(Sender: TObject);

var

DBDAO: Variant;

begin

DBDAO := CreateOleObject('DAO.DBEngine.35');

Screen.Cursor :=3D3D crHourGlass;

try

DBDAO.CompactDatabase('C:SeuBancodeDadosAtual.MDB',

'C:CopiaCompactadadoBancodeDados.MDB',,,';PWD=3DsenhadoBD');

finally

Screen.Cursor := crDefault;

DBDAO := Unassigned;

end;

ShowMessage('Operacao Concluida');

end;

{Dica enviada por Marco Barki Algranti}