Pues lo que puedes hacer es hacer una consulta despues de insertar, pero creo que no quieres hacer dos consultas no?
Set Rs=Conexion.Execute("SELECT MAX(ID) AS IDULTIMO FROM TABLA")
Lo que te generaria el registro mas reciente:
Id=Rs("IdUltimo")
Saludos
<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>