Execute

[Ramondi]

Una posible solución sería hacer un
While not rs.eof do
rs.movenext
Wend

en vez de rs.movelast...
Y sino, volviendo al metodo que tu usaste para abrir el recordset, seria :

set oConn= Server.CreateObject("ADODB.Connection")
oConn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("DATOS.mdb")

SQL="SELECT * FROM modelos"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, oConn, adOpenStatic, adLockPessimistic, adCmdTable
'Como le has pasado ya SQL, no te hace falta hacer un execute

if not rs.eof then 'Se me había olvidado comprovar si no tiene registros..
rs.MoveLast
num=rs.Fields("Id_book")
nombre_nuevo="modelo"&num+1&".jpg"


Response.Write("NOMBRE NUEVO: <b>" & nombre_nuevo & "</b>")
'---------------------------

rs.Fields("nombre_nuevo")=nombre_nuevo
rs.Update 'Esta linea no estaba... xD

end if
rs.close
set rs=nothing
set oConn=nothing