Подскажите кто знает?!

[Proof]

while not(dm.ADOquery3.Eof) do
      begin
        input1:='(';
        for p:=0 to dm.adoquery3.FieldCount-1 do
        begin
          input1:=trim(input1+''''+vartostr(dm.ADOquery3.Fields.Fields[p].Value)+''', ');
        end;
        delete(input1,length(input1)-1,2);
        input1:=trim(input1)+''')';

        dm.ADOQuery1.SQL.Clear;
        dm.ADOQuery1.SQL.Add('insert into '+dm.adoTable3.TableName+' values '+input1);
        dm.ADOQuery1.ExecSQL;

        dm.ADOQuery3.Next;
      end;

При конвертирование таблицы из SQL Server-а в Access выполняется данный код. Код рабочий, но вот вопрос: он работает довольнотоки медленно. Кто знает, как можно ускорить работу?

[D-mon]

Помоему тут и так всё оптимально...
Разве что: input1:=trim(input1)+''')'; -> input1:=input1+''')';
трим тут уже не надо.

[Stilet]

Конвертация такого рода уже многократно обсуждалась. Даже пример где-то был тут вставки в таблицу таблицы одной SQL командой. Вот вставка запроса - самое найбыстрое действие.

[Proof]

Спасибо за советы.