Supongo que los registros que vas a actualizar son consecutivos.
Código:
sSQL="Select * tabla order by Id desc" ' Tendrá que ser una consulta mas especifica
rs.open oConn, 3, 3
id = rs("Id")
set rs.close
.......
for i = 0 to cantidad
valor_id = id + i
sSQL="Update costos_maxirest Set .... Where Id = "&valor_id&";"
Suerte