Datenbankpasswort einer Access DB ändern ???

[Peer]

Über den SQL Befehl ging es leider nicht hatte ich vorher schon probiert.
Hab was gefunden wie es geht. JRO-Libray muss eingebunden werden.

Delphi-Quellcode:

JetEngine := CoJetEngine.Create;
JetEngine.CompactDatabase('Data Source=' + File + ';Jet OLEDB:Database Password=oldpass', 'Data Source=' + BakFile + ';Jet OLEDB:Database Password=newpass');