Из SQLlite3 в БД Firebird

ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data ' + 'Source=' + ExtractFilePath(Application.ExeName) + 'Base\Base1.mdb' + ';Persist Security Info=False';
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT A.AutorName, B.BookName');
  ADOQuery1.SQL.Add('FROM Autors AS A INNER JOIN [B][Base\Base2][/B].Books AS B ON A.AutorID = B.BookID');
  ADOQuery1.Open;

ADOQuery1.ConnectionString := 
'Provider=MSDASQL.1;Persist Security Info=False;Extended Properti' +
          'es="Driver={SQLite3 ODBC Driver};Database=C:\nginx\public_html\d' +
          'b\main.sqlite;StepAPI=0;SyncPragma=;NoTXN=0;Timeout=;ShortNames' +
          '=0;LongNames=0;NoCreat=0;NoWCHAR=0;FKSupport=0;JournalMode=;OEMC' +
          'P=0;LoadExt=;BigInt=0;JDConv=0;"';
 
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('insert in to имя таблицы[строка подключения] ([поле1,пол2,...,поле3]) values (select * from имя таблицы )');
 
  ADOQuery1.Open;

ADOQuery2.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data ' + 'Source=' + ExtractFilePath(Application.ExeName) + 'Base\Base1.mdb' + ';Persist Security Info=False';
 
ADOQuery3.ConnectionString := 
'Provider=MSDASQL.1;Persist Security Info=False;Extended Properti' +
          'es="Driver={SQLite3 ODBC Driver};Database=C:\nginx\public_html\d' +
          'b\main.sqlite;StepAPI=0;SyncPragma=;NoTXN=0;Timeout=;ShortNames' +
          '=0;LongNames=0;NoCreat=0;NoWCHAR=0;FKSupport=0;JournalMode=;OEMC' +
          'P=0;LoadExt=;BigInt=0;JDConv=0;"';
 
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('SELECT A.AutorName, B.BookName');
  ADOQuery2.SQL.Add('FROM Autors AS A INNER JOIN [B][Base\Base2][/B].Books AS B ON A.AutorID = B.BookID');
  ADOQuery2.Open;
with Form2.ADOQuery2 do try //
      Open;
        while not eof do begin
        mytext:='INSERT INTO table1 (pole1, pole2, pole3, pole4 и т.д.) VALUES ('''
        +Form2.ADOQuery2.Fields[0].AsString+''', ' //двойные кавычки для строковых !
        +Form2.ADOQuery2.Fields[1].AsString+', ' //Одинарные кавычки - для чисел!
        +Form2.ADOQuery2.Fields[2].AsString+', '
        +Form2.ADOQuery2.Fields[3].AsString+')';
        Form2.ADOQuery3.SQL.Clear;
        Form2.ADOQuery3.SQL.Add(mytext);
        Form2.ADOQuery3.ExecSQL; //метод "open" работать не будет при INSERT обрати на это внимание
        next;
        end;