Как установить и сменить пароль базы Access через проект Delphi?

Provider=Microsoft.Jet.OLEDB.4.0;User ID=UserName;Password=Password;Data Source=C:\DataBase.mdb;

Provider=Microsoft.ACE.OLEDB.12.0;User ID=UserName;Password=Password;Data Source=C:\Database.accdb;Persist Security Info=True

'Database=C:\Database.accdb;User_Name=UserName;Password=Password;DriverID=MSAcc'

procedure TForm67.Button1Click(Sender: TObject);
const
  ADOConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Jet OLEDB:Database Password=%s;Mode=Share Exclusive';
begin
 OpenDialog1.Filter := 'Access database (*.mdb)|*.mdb';
 OpenDialog1.Options := OpenDialog1.Options + [ofShareAware];
 if not OpenDialog1.Execute then Exit;
 try
   if not InputQuery('Запрос пароля', #31'Введите пароль:', Password)
   then raise Exception.Create('Ошибочный пароль');
   ADOConnection1.Close;
   ADOConnection1.ConnectionString := Format(ADOConnectionString, [OpenDialog1.FileName, Password]);
   ADOConnection1.LoginPrompt := False;
   ADOConnection1.Open;
 except on E: Exception
   do begin
      ShowMessage(E.Message);
      Application.Terminate;
      end;
 end;
end;
 
procedure TForm67.Button2Click(Sender: TObject);
var
  AValues: Array of String;
begin
 if not ADOConnection1.Connected then Exit;
 SetLength(AValues, 2);
 AValues[0] := Password;
 AValues[1] := NewPassword;
 if InputQuery('Запрос пароля', [#31'Введите старый пароль:',#31'Введите новый пароль:'], AValues,
               function (const Values: Array of String): Boolean
               begin
               Result := Values[0] <> Values[1];
               end)
 then ADOConnection1.Execute(Format('ALTER DATABASE PASSWORD [%s][%s]',[AValues[1],AValues[0]]));
end;