Que me sugieren?

[sdnsdlm]

En principio el código parece OK, es decir, no veo donde está el error, pero hay una manera mucho más elegante de hacerlo en mi opinión y es trabajando con el motor de cursor de ADO y la propiedad del Recordset "update resync".
- Haces un select de la tabla con los campos que vayas a actualizar más el que es de autoincremento
- La propiedad "Update Resync" de la colección properties del Recordset la estableces a adResyncAutoIncrement. Es decir, nombre_recordset.Properties("Update Resync") = adResyncAutoIncrement
- Llamas a addNew: nombre_recordset.addNew
- Estableces los campos con los valores
- Haces el update del recordset
- Es de esperar que tras este proceso en el campo autoincremento del recordset tengas el valor autonumérico del registro que acabas de insertar.

Pruébalo e investiga un poquillo, pero el tema va por ahí, yo al menos así lo hago cuando alguna vez lo he tenido que hacer (si el proveedor me deja).

Un saludo.