{
try {
DataModule2->ADOConnection1->Connected=false;
DataModule2->ADOConnection1->ConnectionString = pIniFile->ReadString("ADO","ADOConnection","ADOConnection=Provider=MSDASQL.1;MaskEdit1->Text=Password;Persist Security Info=False;Edit1->Text =User ID;Data Source=sa");
DataModule2->ADOConnection1->Connected = true;
if (DataModule2->ADOConnection1->Connected)
 { Form3->Show(); }
	 }
catch( Exception &ex ) {
	ShowMessage( "error" );
	Close();
	return;}
}

{
DataModule3->ADOConnection1->Close();
DataModule3->ADOConnection1->ConnectionString="Provider=MSDASQL.1;Password="+MaskEdit1->Text+";Persist Security Info=False;User ID="+Edit1->Text+";Data Source=sa";
 try   {
	DataModule3->ADOConnection1->Open();
	  Form2->Close();
	   }
	   catch (...) {
		ShowMessage("Error Login password");
			 return; }

}