UPDATE

     EXEC ADO
        UPDATE DATASOURCE
     END-EXEC