Перенос данных из DBGrid в DBGrid

[demiancz]

Есть два DBGrid с разным количеством и названием колонок. Данные в DBGrid загружаются из EXcel. Схожие колонки по названию: "Код", "Наименование товара", "Наличие", "Дата прихода"
Нужно из одного DBGrid перенести все отображаемые данные в другой.
Нашел на форуме такой пример.

ADOQuery2.Close;
ADOQuery.SQL.Text := 'INSERT INTO table1 (pole1, pole2, pole3) VALUES (:pole1, :pole2, :pole3)';
ADOQuery1.Open;
while not ADOQuery1.Eof do
begin
  ADOQuery2.Parameters.ParamByName('pole1').Value := ADOQuery1.FieldByName('pole1').Value;
  ADOQuery2.Parameters.ParamByName('pole2').Value := ADOQuery1.FieldByName('pole2').Value;
  ADOQuery2.Parameters.ParamByName('pole3').Value := ADOQuery1.FieldByName('pole3').Value;
  ADOQuery2.ExecSQL;
  ADOQuery1.Next;

Пытаюсь приспособить под себя

procedure TForm1.Button5Click(Sender: TObject);
begin
ADOQuery2.Close;
ADOQuery1.SQL.Text := 'INSERT INTO [Лист1$] (Код) VALUES (:Код)';
ADOQuery1.Open;
while not ADOQuery1.Eof do
begin
  ADOQuery2.Parameters.ParamByName('Код').Value := ADOQuery1.FieldByName('Код').Value;
  ADOQuery2.ExecSQL;
  ADOQuery1.Next;
end;
end;

Возникает ошибка при нажатии на кнопку "В операции должен использоваться обновляемый запрос".
Помогите пожалуйста.

[ReportCube]

Вы разберитесь с именами, кто вставляет, для кого Open, а для кого ExecSQL

[Stilet]

Вот именно. Insert прописан для ADOQuery1 а выполнить пытаешся ADOQuery2

[demiancz]

поменял на

ADOQuery1.ExecSQL

;
Ошибка таже.
Вышеприведенный код я взял отсюда http://www.programmersforum.ru/showthread.php?t=239877