進Access，以Access功能表設某Access的聯接密碼，這沒問題。可是，要如何才能由程式中下命令對沒設連接密碼的設此密碼？謝謝。

1.Import Type Library: "Microsoft Jet and Replication Objects 2.x Library". 
2.程式碼如下:
<textarea class="delphi" rows="10" cols="60" name="code">uses JRO_TLB; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var engine: IJetEngine; src, dst, path: WideString; begin path := ExtractFilePath(ParamStr(0)); // src is connection string to existing database with old password src := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' path 'test.mdb' ';Jet OLEDB:Database Password=oldpassword'; // dst is connection string to compacted db with new password dst := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' path 'compacted.mdb' ';Jet OLEDB:Database Password=newpassword'; engine := CoJetEngine.Create(); engine.CompactDatabase(src, dst); end; </textarea><br />
3.或者用下 SQL 的方式, 如下:
ALTER DATABASE PASSWORD newpassword oldpassword

謝謝前輩指點。謝謝。