一个关于DELPHI动态建立ACCESS链接表的问题！ 请帮我看看！ 谢谢！

Question

var
  l_Cat,l_tbl: OleVariant;
begin
  l_cat := CreateOleObject('ADOX.Catalog');
  l_cat.ActiveConnection := 'Provider=Microsoft.Jet.OLEDB.4.0;DataSource='+ExtractFilePath(Application.ExeName)+'Table\+DE.mdb';  l_tbl := CreateOleObject('ADOX.Table');
  l_tbl.Name := 'B_users';    //链接表的名称
  l_tbl.ParentCatalog := l_cat;
  l_tbl.Properties('Jet OLEDB:Remote Table Name') := 'B_users';
  l_tbl.Properties('Jet OLEDB:Link Datasource') := ExtractFilePath(Application.ExeName)+'Table\GL.mdb';
  l_tbl.Properties('Jet OLEDB:Create Link') := True;
  l_cat.Tables.Append(l_tbl);
end;----------------------  //上是往DE.mdb库加链接表的源码（从GL.mdb库中）       如果GL.mdb和DE.mdb两个库都没有设置密码，链接表可以安全创建。
问题是：
      如果这GL.mdb库密码为:'111'  DE.mdb库密码为:'222'   以上代码应该怎么改链接表才可以安全创建啊？

Answer 1

'Provider=Microsoft.Jet.OLEDB.4.0;'+
                           'User ID=Admin;Data Source='+spath+
                           ';Mode=Share Deny None;Extended Properties="";'+
                           'Jet OLEDB:System database="";'+
                           'Jet OLEDB:Registry Path="";'+
                           'Jet OLEDB:Database Password='''+'111'''+
                           ';Jet OLEDB:Engine Type=5;'+
                           'Jet OLEDB:Database Locking Mode=1;'+
                           'Jet OLEDB:Global Partial Bulk Ops=2;'+
                           'Jet OLEDB:Global Bulk Transactions=1;'+
                           'Jet OLEDB:New Database Password="";'+
                           'Jet OLEDB:Create System Database=False;'+
                           'Jet OLEDB:Encrypt Database=False;'+
                           'Jet OLEDB:Don''t Copy Locale on Compact=False;'+
                           'Jet OLEDB:Compact Without Replica Repair=False;'+
                           'Jet OLEDB:SFP=False';

Answer 2

： yanlls(拒绝日货(美女除外)) :
好像不可以这样啊，它会提示文件名称无效。