Импорт из access в dbgrid

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ADOConnection1->Close();
ADOConnection1->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\2.xls;Extended Properties=Excel 8.0";
ADOConnection1->Open();
ADOQuery1->ConnectionString = ADOConnection1->ConnectionString;
DBGrid1->DataSource = DataSource1;
DataSource1->DataSet = ADOQuery1;
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("SELECT * FROM [Ëèñò1$]");
ADOQuery1->Open();
int i, a_max = 0;
 
 for(int a = 0; a < ADOQuery1->FieldCount; a++)
 {
    ADOQuery1->First();
    i = 0;
    while(!ADOQuery1->Eof)
    {
      i = Canvas->TextWidth(ADOQuery1->Fields->Fields[a]->AsString);
      if(i > a_max)
      {
       a_max = i;
      }
      ADOQuery1->Next();
    }
   DBGrid1->Columns->Items[a]->Width = a_max+5;
 }
}

             ADOQuery1->Close();
             ADOQuery1->SQL->Clear();
             ADOQuery1->SQL->Add("INSERT INTO Кадры (Личный номер, Личное дело, Фамилия)");
             ADOQuery1->SQL->Add("SELECT Личный номер, Личное дело, Фамилия  FROM Кадры1");
             ADOQuery1->ExecSQL();