BIND CONNECTION

     EXEC ADO 
        BIND CONNECTION fred TO :con WITH TRANSACTION :tran
     END-EXEC