如何动态设置ado (200分)

如何动态设置ado ？

procedure TForm1.BitBtn1Click(Sender: TObject);
var str:string;
begin
if opendialog1.Execute then
edit1.text:=opendialog1.FileName;
str:='DBQ='+edit1.text+';Driver={Driver do Microsoft Access (*.mdb)};DriverId=25;FIL=MS Access;UID=admin;UserCommitSync=Yes;';
adoconnection1.Close;
try
adoconnection1.ConnectionString :=str;
adoconnection1.GetTableNames(combobox1.Items,false)
except
messagedlg('数据连接失败！',mterror,[mbok],0);
end;
end;

什么叫动态设置ADO？
你是不是说怎样动态连接吧？？？？？？
ADOExpress控件都有一个ConnectionString，只要在代码加上你要连接到数据库以及用户、密码就可以

多人接受答案了。

'连接Sql server数据库
CnString := 'Provider=SQLOLEDB.1;Password=' + Dbpassword + ';Persist Security Info=True;User ID=' + Dbuser + ';Initial Catalog=Master;Data Source=' + trim(cboServer.Text);
with adoQuery do
begin
close;
ConnectionString := cnstring;
sql.clear;
sql.add('查询语句');
active:=true;
end;