Pero qué tal si el campo es autonumérico y por alguna razón borraron el último registro?
1
2-borrado
Estraería el 1, le suma 1, te da un 2, pero en realidad el autonumérico te va a dar un 3...
Trata de ejecutar esta sentencia inmediatamente después de la inserción, suponienfdo que tienes una conexión activa llamada ObjConn:
Set rsUltimo = ObjConn.Execute("SELECT @@IDENTITY AS mi_ultimo")
Y lo usas así:
id = rsUltimo("mi_ultimo")
A ver si te sirve.
Salu2,