cnnStrClient = "Provider=SQLOLEDB.1;Password=spcap;Persist Security Info=True; "
           "User ID=xxx;Initial Catalog=abc;Data Source=mmm;      //Open Connection
  ADOConnection1->ConnectionString=cnnStrBase;
  ADOConnection1->Open();      //Connect with ADO Command
  ADOCommand1->Connection=ADOConnection1;
  ADOCommand1->CommandType = cmdText;      //Connect with ADO DataSet
  ADODataSet1->Connection=ADOConnection1;
  ADODataSet1->CommandType = cmdText; 

  SQLstr = "SELECT DISTINCT Name FROM Model INNER JOIN Factory ON "
           "Model.Factory_ID = Factory.Factory_ID "
           "WHERE Factory.Name='"   cmbFactory->Text   "' ORDER BY Model.Name";
  ADODataSet1->Close();
  ADODataSet1->CommandText=SQLstr;
  ADODataSet1->Open();      cmbModel->Items->Clear();
  while (!ADODataSet1->Eof)
  {
    cmbModel->Items->Add(ADODataSet1->FieldByName("Name")->AsString);
    ADODataSet1->Next();
  }