adoconnection怎动态样连接数据库

  DM1.cnnDB.ConnectionString:=
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DM1.DBFileName+';'
      +'Mode=Read|Write;Extended Properties="";Locale Identifier=2052;Persist Security Info=False;'
      +'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";'
      +'Jet OLEDB:Database Password='+strPass+';'
      +'Jet OLEDB:Engine Type=5;'
      +'Jet OLEDB:Database Locking Mode=0;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';
  try
    DM1.cnnDB.Open;
  except
    MessageDlg('密码不对或者数据库连接不当'+#13+'清注意区分大小写',
               mtConfirmation,[mbYes], 0);
    edtPass.Clear;
    Exit;
  end;//try