Delphi程式建立有密碼的access資料庫

如何直接利用Delphi建立有password的access mdb database?

Use System.Win.ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var cnewmdb:variant;
begin
  // 透過ADOX建立
  cnewmdb := CreateOleObject('ADOX.Catalog');
  cnewmdb.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.MDB;Jet OLEDB:Database Password=''12345678'';' );
  
  // 連線
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TT2.MDB;Jet OLEDB:Database Password=''12345678'';';
  ADOConnection1.LoginPrompt:=false;
  ADOConnection1.connected:=true;
end;