begin transaction;

update [kl]
   set [img] = stuff([img], 1, 1, 'R')
 where [img] like 'S:\%';

--потом проверяете правильность измененных данных и выполняете одну из закоменченных команд

/* в случае правильности
commit transaction;
*/

/* в случае ошибок
rollback transaction;
*/