Firebird - Lendo dados de uma base e escrevendo em outra

EXECUTE block
AS
DECLARE variable vi_CodEmpresa INTEGER;
DECLARE variable vs_Nome       VARCHAR(100);
BEGIN

   FOR
      SELECT
         CODEMPRESA,
         NOME
      FROM EMPRESA
      INTO
         :vi_CodEmpresa,
         :vs_Nome
   do BEGIN

      EXECUTE statement 'insert into ALUNO (ID,NOME) values ('||:vi_CodEmpresa||',''' || :vs_Nome || ''')'
         ON external DATA SOURCE 'C:\CAMINHO_DESTINO\DADOS.FDB' AS USER 'sysdba' PASSWORD 'masterkey';

   END

END