execute ibeblock
returns (CustNo integer, Company varchar(100), Addr1 varchar(100))

    as
    begin
    InCust = 3000;
    OdbcCon = ibec_CreateConnection(__ctODBC, 'DBQ=D:\Delphi5\CMP\mODBC\DB\demo.mdb;DRIVER=Microsoft Access Driver (*.mdb)');
    ibec_UseConnection(OdbcCon);

    execute statement 'select Company from customer where CustNo = 4312' into :MyCust;

    for select CustNo, Company, Addr1 from customer
       where CustNo > :InCust
       order by company
       into :CustNo, :Company, :Addr1
    do
    begin
       suspend;
    end
    ibec_CloseConnection(OdbcCon);
 end

execute ibeblock
 as
 begin

   FBSrc  = ibec_CreateConnection(__ctFirebird,'DBName="localhost:C:\DB1.FDB";
   ClientLib=C:\Program Files\Firebird\Bin\fbclient.dll;
   user=SYSDBA; password=masterkey; names=WIN1251; sqldialect=3');

   FBDest = ibec_CreateConnection(__ctODBC,'DBQ=C:\bsk.empty.test.mdb;DRIVER=Microsoft Access Driver (*.mdb)');

   ibec_UseConnection(FbSrc);

   for select CustNo, Company, Addr1 from customer order by company into :CustNo, :Company,
     :Addr1
   do
   begin
      use FBDest;
      INSERT INTO CUSTOMER (CustNo, Company, Addr1) VALUES (:CustNo, :Company, :Addr1);
      use FBSrc;
   end
   use FBDest;
   COMMIT;
   ibec_CloseConnection(FBSrc);
   ibec_CloseConnection(FBDest);
 end

TextDate Varchar(20);
...
Select
    IIF( DateField is null, 'NULL', date_to_str( DateField, '%d.%m.%y' )
FROM TABLE_FB
INTO 
   :TextDate;

INSERT INTO TABLE_ACCESS
  (
      DateField
  )
VALUES
  (
      IIF( :TextDate = 'NULL', NULL, :TextDate ) 
  )

execute ibeblock
returns (
            FieldDate  Date
        )

    as
    begin

        AccessDest = ibec_CreateConnection(__ctODBC,     'DBQ=C:\test.mdb;DRIVER=Microsoft Access Driver (*.mdb)');

        FieldDate = null;
        ibec_UseConnection(AccessDest);

        INSERT INTO T_TEST
                  (
                   AccessDateField
                   )
               Values
                  (
                   :FieldDate
                  );

       COMMIT;

       ibec_CloseConnection(AccessDest);

 end

execute ibeblock
returns (
            FieldText  Varchar(255)
        )

    as
    begin

        AccessDest = ibec_CreateConnection(__ctODBC,     'DBQ=C:\test.mdb;DRIVER=Microsoft Access Driver (*.mdb)');

        FieldText  = 'любой текст';
        ibec_UseConnection(AccessDest);

        INSERT INTO "Тестовая таблица"
                  (
                   "Текстовое значение"
                   )
               Values
                  (
                   :FieldText
                  );
         Suspend;
       COMMIT;

       ibec_CloseConnection(AccessDest);

 end