Запись в Excel поcредством ADO

   AnsiString mFile;
   if(OpDlg->Execute())
   {
     mFile = OpDlg->FileName;
     DM->ADOConnection1->Provider=WideString("Microsoft.Jet.OLEDB.4.0");
     DM->ADOConnection1->ConnectionString=WideString("Data Source="+mFile+";Extended Properties='Excel 8.0; 
 
HDR=No;IMEX=1'");
     DM->ADOConnection1->LoginPrompt=false;
     DM->ADOConnection1->GetTableNames(LBoxTableName->Items,NULL);
     static_cast<TCustomConnection*>(DM->ADOConnection1)->Open();
     DM->ADOQuery1->Connection=DM->ADOConnection1;
     DM->ADOQuery1->SQL->Text="select * from ["+ LBoxTableName->Items->Strings[0] +"]";
     DM->ADOQuery1->Open();
     int ColCnt = DBGrid1->Columns->Count;
     for(int i=0; i<ColCnt; i++)
     {
        TColumn * mCol = new TColumn(DBGrid1->Columns);
        mCol->FieldName = "F" + IntToStr(i+1);
        mCol->Width = 100;
     }
   }
   LabEdit_Number->SetFocus();
   if(!DM->ADOConnection1->Connected)
      ShowMessage("Ошибка  открытия файла");
[/code]
 
Эта функция производит поиск введенной в LabelEdit строки в файле Эксель.
Тоже все без проблем.
[code]
   if(DM->ADOConnection1->Connected)
   {
      if(LabEdit_Number->Text != "")
        DM->ADOQuery1->SQL->Text="select * from ["+ LBoxTableName->Items->Strings[0] +"] where 
 
F1='"+LabEdit_Number->Text+"'";
      else
        DM->ADOQuery1->SQL->Text="select * from ["+ LBoxTableName->Items->Strings[0] +"]";
      DM->ADOQuery1->Open();
      int ColCnt = DBGrid1->Columns->Count;
      for(int i=0; i<ColCnt; i++)
      {
          TColumn * mCol = new TColumn(DBGrid1->Columns);
          mCol->FieldName = "F" + IntToStr(i+1);
          mCol->Width = 100;
      }
   }
   else
   {
      ShowMessage("Необходимо открыть файл.");
      PMOpen1->Click();
   }

   DM->ADOQuery1->Close();
   DM->ADOQuery1->SQL->Clear();    
//======= ВАРИАНТ №1 =========================
   DM->ADOQuery1->SQL->Add("update ["+ LBoxTableName->Items->Strings[0] +"] set F3=:F3 where F1=:F1");
   DM->ADOQuery1->Parameters->ParamByName("F1")->Value = LabEdit_Number->Text;
   DM->ADOQuery1->Parameters->ParamByName("F3")->Value = LabEdit_Count->Text;
//============================================
//======= ВАРИАНТ №2 =========================
   DM->ADOQuery1->SQL->Add("update ["+ LBoxTableName->Items->Strings[0] +"] set F3='"  + LabEdit_Count->Text +  "' where 
 
F1='"+ LabEdit_Number->Text+ "'");
//============================================
//======= ВАРИАНТ №3 =========================
//==== (от безисходности начал тупо экспериментировать)=======
   DM->ADOQuery1->SQL->Add("update ["+ LBoxTableName->Items->Strings[0] +"] set F3 values('" + LabEdit_Count->Text+ "') 
 
where F1='"+ LabEdit_Number->Text+ "'");
//============================================
   DM->ADOQuery1->ExecSQL();