Perdón, si no leí mal, estás grabando datos en la base a través de un formulario, o sea algo así (omito lo de la conexión a la base):
....
Ob_RS("Nombre") = Request.Form("Nombre")
Ob_RS("Apellido") = Request.Form("Apellido")
....
'luego viene el update
Ob_RS.Update
' y acá ya se puede recuperar el Id (si se puede trabajando en Access, en SQL Server no se puede de esta forma)
id = Ob_RS("Id")
'Cierro el RS y destruyo el obj.
Ob_RS.Close
Set Ob_RS = Nothing
Y ahi tengo el id para imprimir.
Con esto me ahorro hacer esa consulta.
Saludos, espero haber entendido bien y que sirva.
