Вывод в эксель - ошибка

#include <comobj.hpp>
//на кнопку
 String exp;
 Variant app ;
 Variant books ;
 Variant book ;
 Variant sheet ;
 app = CreateOleObject("Excel.Application" );
 books = app.OlePropertyGet("Workbooks");
 books.Exec(Procedure("Open")<<"E:\\ 1.xlsx");
 book = books.OlePropertyGet("item",1);
 sheet= book.OlePropertyGet("WorkSheets",1) ;
 
 index=1;
 DBGrid1->DataSource->DataSet->First();
 for(i=1;i<DBGrid1->DataSource->DataSet->RecordCount;i++){
 for(j=1;j<DBGrid1->FieldCount;j++){
 exp=DBGrid1->Fields[j-1]->AsString;
 sheet.OlePropertyGet("Cells").OlePr opertyGet("Item",index,j).OleProper tySet( "Value", exp.c_str()); }
 index++;
 DBGrid1->DataSource->DataSet->Next();
 }
 app.OlePropertySet("Visible", 1);
 }

DBGrid1->DataSource->DataSet->First();
 for(int i=1;i<DBGrid1->DataSource->DataSet->RecordCount;i++){
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("INSERT INTO MyTable ([поле1], [поле2]...) VALUES ( '"+ DBGrid1->DataSource->DataSet->FieldByName("поле1")->AsString + "', '" + DBGrid1->DataSource->DataSet->FieldByName("поле2")->AsString + "' ....");
ADOQuery1->ExecSQL();
 DBGrid1->DataSource->DataSet->Next();
}

this->ADOQuery2->Close();
this->ADOQuery2->SQL->Add(" \
    CREATE TABLE MyTable (  \
     поле1 VARCHAR(20),   \
     поле2 VARCHAR(10)  )");
this->ADOQuery2->ExecSQL();

#include <vcl.h>
#pragma hdrstop
#include      <ComObj.hpp>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
String exp;
AnsiString path = "D:\\1.xls";
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
 vVarApp=CreateOleObject("Excel.Application");
 fStart=true;
 vVarApp.OlePropertySet("Visible",true);
 vVarBooks=vVarApp.OlePropertyGet("Workbooks").OlePropertyGet("Open", path.c_str());
 vVarSheets=vVarBooks.OlePropertyGet("Worksheets") ;
 vVarSheet=vVarSheets.OlePropertyGet("Item",1);
 int  index = 1, i, j;
 DBGrid1->DataSource->DataSet->First();
 for(i=1; i<DBGrid1->DataSource->DataSet->RecordCount; i++)
 {
        for(j=1; j<DBGrid1->FieldCount; j++)
        {
                 exp = DBGrid1->Fields[j-1]->AsString;
                 vVarCell = vVarSheet.OlePropertyGet("Cells").OlePropertyGet("Item",index,j);
                 vVarCell.OlePropertySet("Value",exp.c_str());
                 index++;
                 DBGrid1->DataSource->DataSet->Next();
        }
 }
}

Provider=MSDASQL.1;Persist Security Info=False;Data Source=Excel Files;Initial Catalog=C:\test.xls;