Incrementare/Decrementare ID tabella

[renganz]

Ciao a tutti! Ho un problema di aggiornamento di una tabella.
Vorrei incrementare o decrementare di un certo numero fissato (diff) tutti gli ID maggiori di un certo numero (Session("id")).

Set rsPubAut2 = objConn.Execute("SELECT * FROM [Pub-Aut] where Pub > "  & Session("id"))
        
rsPubAut2.close
rsPubAut2.LockType = 2 
rsPubAut2.open
rsPubAut2.MoveFirst
On Error Resume Next

If (NOT rsPubAut2.EOF) And (NOT rsPubAut2.BOF) Then
    do while Not rsPubAut2.eof
        if numaut >= cont then
            rsPubAut2.Fields("ID").value = rsPubAut2.Fields("ID").value + diff
        else 
                rsPubAut2.Fields("ID").value = rsPubAut2.Fields("ID").value - diff
        end if
        rsPubAut2.MoveNext
    loop
end if 

Purtroppo gli ID non vengono aggiornati bene.

Esiste qualche altro modo per farlo oppure ho sbagliato io qualcosa?

Grazie