Se puede hacer compactando la Base de Datos y dando un nuevo password para el proceso.
Importa la librería "Microsoft Jet and Replication Objects 2.6 Library" desde delphi y utiliza el siguiente código:
Código Delphi
[-]
uses JRO_TLB;
procedure TForm1.Button1Click(Sender: TObject);
var
engine: IJetEngine;
src, dst, path: WideString;
begin
path := 'c:\temp\';
src := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + path + 'dbdemos.mdb' +
';Jet OLEDBatabase Password=ANTIGUO';
dst := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + path + 'dbDemosNew.mdb' +
';Jet OLEDBatabase Password=NUEVO';
engine := CoJetEngine.Create();
engine.CompactDatabase(src, dst);
end;
La Base de Datos se debe abrir en modo exclusivo. Ésto te debe generar una base de datos nueva con el nuevo password; Si deseas luego puedes borrar la antigua (DeleteFile) y renombrar la nueva (RenameFile).