Perdón que me meta. Yo lo haría de la siguiente forma.
Código:
<%
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.ActiveConnection = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("DATOS.mdb")
oRs.Source = "SELECT TOP 1 Id_book, modelo FROM modelos ORDER BY id_book DESC"
oRs.CursorType = 1
oRs.LockType = 3
oRs.Open
Dim nombre_nuevo
nombre_nuevo = "modelo1.jpg"
If NOT oRs.EOF AND NOT oRs.BOF then
nombre_nuevo="modelo" & (oRs("Id_book") + 1) & ".jpg"
end if
oRs.AddNew
oRs("modelo") = nombre_nuevo
oRs.Update
Response.Write("NOMBRE NUEVO: <b>" & nombre_nuevo & "</b>")
oRs.Close(): Set oRs=Nothing
%>