Problemas con datos autonumericos

[a n g e l u s]

Tambien puedes usar el viejo y nunca bien ponderado truco de sql max()

Function sqlmaximo( campo, tabla )
on error resume next
sql = "select max("&campo&") as maximo from "&tabla
set rsmax = db.execute(sql)
if err <> 0 then
Response.Write("<CENTER>ERROR AL BUSCAR EL ULTIMO REGISTRO<BR>:"&err.description&"-"&sql&"<hr></CENTER>")
else
if not rsmax.eof then
sqlmaximo = rsmax("maximo")
end if
rsmax.close
end if
End Function

espero que te sirva DE ALTERNATIVA.