adoconnection向adoquery赋数据库名的代码如何写

adoconnection向adoquery赋数据库名的代码怎么写？
就是提取adocon的数据库名赋给adoqu ，具体里面的参数什么的怎么写？我不要在控件里面设置

------解决方案--------------------
ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=sa;Initial Catalog=数据库名;Data Source=IP/电脑名';
ADOQuery1.Connection:=ADOConnection1;