在程序中调用ADO控件的ConnectionString设置框

　　在CB程序中使用ADO组件时，必须设置TADOConnection对象的ConnectString对象。这个步骤往往是在程序设计时就完成的，但是有时需要在程序中由用户自由定义连接到的数据库。经过阅读ADO的VCL源代码，我总结出了程序支行时定义连接信息的方法，见如下代码：
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   WideString sOld,sNew;
   sOld = AdoConnection->ConnectionString;//改变前或设计时指定的连接字符
   sNew = PromptDataSource((unsigned int)Handle,sOld);//如果点确定，则sNew为新设的连接串，否则sNew=sOld
   AdoConnection->Connected = false;
   AdoConnection->ConnectionString = sNew;//重设连接字符
   AdoConnection->Connected = true;
}