delphi 如何动态地将数据库连接信息写入ADOConnection的Conn

我程序里的一段，打开指定的数据库： ADOConnection1.Close; ADOConnection1.Connected:=false; ADOConnection1.ConnectionString:=''; str:='Provider=Microsoft.Jet.OLEDB.4.0assword="";User ID=Admin;Data Source='; AppPath:=ExtractFileDir(Application.ExeName); str:=str+AppPath+'\bsdata\'+Node.Parent.Text;//ttreeview里的一个结点 ADOConnection1.ConnectionString:=str+'.mdb;Mode=Share Deny None;'+'Extended Properties="";Jet OLEDB:System database="";'+'Jet OLEDB:Registry Path="";'+'Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=4;'+'Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;'+'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB 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'; ADOConnection1.Connected:=true; ADOConnection1.Open; 查看更多答案>>

ConnectionString 这个值应该是可以在软件里直接点击设置链接的，也可以将链接信息在程序开始就赋链接字符串的值。