$rs->Open($cmd,undef,adOpenStatic,adLockPessimistic);
        if ($rs->{EOF}) {
            # ....
        } else {
         #...
                         $rs->Update;
         #...
        }