Set rs = New ADODB.Recordset
sql="select * from nometabella where nomecampo=condizioni"
rs.Open sql,CurrentProject.Connection, adOpenDynamic, adLockOptimistic
do while not rs.eof
rs.nomecampo=rs.nomecampo+1
rs.Update
rs.movenext
loop
rs.Close
Set rs = Nothing

Prova così dovrebbe funzionare.