Si estás añadiendo datos mediante redordset.addnew en vez de con una instrucción INSERT, justo después del addnew pregunta por el valor del campo autoincremental p.e.:
Dim rs as recordset
rs.addnew
NuevoValor = rs("NumeroSiguiente").Value
.....
...
Un saludo
