Se me ocurre que lo puede hacer así:
Código:
código previo
..................
rs.Addnew
'rs(0) no se hace nada porque es el campo autonúmerico
rs(1) = valor2
rs(3) = valor3
rs.Update
..................
resto de código
Depués del udapte el rs(0) se actulizará y tendrá el valor del id nuevo.
Con una consulta INSERT no se me ocurre una solución.
Saludes