Firebird - IBExpert - Exportando Dados Entre bancos

EXECUTE IBEBLOCK
RETURNS (
   CodCidade INTEGER
)
AS
DECLARE variable vl_Base_Origem   VARCHAR(100);
DECLARE variable vl_Base_Destino  VARCHAR(100);
DECLARE variable vlCodCidade      INTEGER;
DECLARE variable vlCodCidade2     INTEGER;
DECLARE variable vlDescCidade     VARCHAR(50);
DECLARE variable vlUF             VARCHAR(3);

BEGIN

   vl_Base_Origem  = 'C:\Bancos\Origem\base.fdb';
   vl_Base_Destino = 'C:\Bancos\Destino\base.fdb';

   CON1 = ibec_CreateConnection(__ctFirebird,
      'DBName="'||:vl_Base_Origem||'";
     Clientlib=GDS32.dll;
     User=SYSDBA;
     Password=masterkey;
     Names=NONE;
     SQLDialect=3;');

   CON2 = ibec_CreateConnection(__ctFirebird,
      'DBName="'||:vl_Base_Destino||'";
     Clientlib=GDS32.dll;
     User=SYSDBA;
     Password=masterkey;
     Names=NONE;
     SQLDialect=3;');


   ibec_UseConnection(CON2);
   DELETE FROM Cidade;
   commit;


   ibec_UseConnection(CON1);
   FOR
      SELECT CodCidade, DescCidade, UF FROM Cidade
      INTO :vlCodCidade, :vlDescCidade, :vlUF
   do BEGIN
      CodCidade = vlCodCidade;

      ibec_UseConnection(CON2);
      INSERT INTO Cidade (CodCidade,DescCidade,UF) VALUES (:vlCodCidade, :vlDescCidade, :vlUF);
      commit;

      ibec_UseConnection(CON1);

      suspend;
   END


   CLOSE CONNECTION CON1;
   CLOSE CONNECTION CON2;

END