Execute

[rubenASP]

Al final, lo que he hecho para que me funcione es acceder 2 veces a la base de datos. La primera para averiguar el valor de Id_book y la segunda para insertar el valor del siguiente registro. La primera parte quedaría así:

set oConn=server.CreateObject("ADODB.connection")
oConn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("DATOS.mdb")
SQL="SELECT * FROM modelos"
set rs=oConn.Execute(SQL)

while NOT rs.EOF
num=rs("Id_book")
rs.movenext
wend

oConn.Close
set rs=nothing
set oConn=nothing