AnsiString DS = PromptDataSource(reinterpret_castunsigned int>(Handle), "Provider=MSDASQL.1;Persist Security Info=False;Data Source=имя");
if(DS != "") {
DataModule2->ADOConnection1->Connected = false;
DataModule2->ADOConnection1->ConnectionString = DS;
DataModule2->ADOConnection1->Connected = true;
}
else {
//Cancel
}