Usted debe poder hacer esto DESPUÉS de su parte movible:
rsID dévil como ADODB.Recordset
Fijar el rsID = nuevo ADODB.Recordset
rsID.Open “@@IDENTITY SELECTO como NewID”, conec
rsID de Msgbox (“NewID”)
Hacer obviamente esto antes de cerrar su conexión de la DIFICULTAD.