Execute

[rubenASP]

Explico lo que quiero hacer, a continuación pongo lo que he escrito y finalmente os muestro el error para ver si alguien me puede echar un cablecillo.

Lo que quiero hacer es que a partir de una Base de Datos, acceder al último registro y tomar el valor autonumérico que se encuentra en "Id_book". Una vez que tengo eso, guardo en el registro siguiente los valores que sean y en el campo "nombre_nuevo" quiero guardar el valor autonumérico que recogí sumado uno.


CODIGO
----------------------------------------------------->
----------------------------------------------------->
set oConn= Server.CreateObject("ADODB.Connection")
set rs= Server.CreateObject("ADODB.Recordset")

oConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("DATOS.mdb")

SQL="SELECT * FROM modelos"

'Se abre el Recordset: el 0 es el cursor adForwardOnly y el 2 es el cerrojo adLockPssimistic
rs.Open SQL, oConn, 0, 2


'--------------------------
set objRS=rs.Execute(SQL)
oConn.MoveLast
num=oConn("Id_book")
nombre_nuevo="modelo"&num+1&".jpg"


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

rs.Fields("nombre_nuevo")=nombre_nuevo

----------------------------------------------------->
----------------------------------------------------->


ERROR:

Me sale el siguiente error en esta línea: "set objRS=rs.Execute(SQL)"

Error de Microsoft VBScript en tiempo de ejecución error '800a01b6'

El objeto no acepta esta propiedad o método: 'Execute'



Gracias por adelantado