EXECUTE IBEBLOCK returns (
TEXTO varchar(100)
)
AS
BEGIN

   CON1 = ibec_CreateConnection(__ctFirebird,
      'DBName="C:\bancos\base\banco1.fdb";
      Clientlib=GDS32.dll;User=SYSDBA;
      Password=masterkey;
      Names=NONE;
      SQLDialect=3;');

   ibec_UseConnection(CON1);
   --ou USE CON1;
   Select Nome from Empresa into :TEXTO;
   SUSPEND;
   CLOSE CONNECTION CON1;




   CON2 = ibec_CreateConnection(__ctFirebird,
      'DBName="C:\bancos\base2\banco2.fdb";
      Clientlib=GDS32.dll;User=SYSDBA;
      Password=masterkey;
      Names=NONE;
      SQLDialect=3;');

   ibec_UseConnection(CON2);
   --ou USE CON2;
   Select Nome from Empresa into :TEXTO;
   SUSPEND;
   CLOSE CONNECTION CON2;

END