Você deve poder fazer isto APÓS sua inserção:
rsID não ofuscante como ADODB.Recordset
Ajustar o rsID = ADODB.Recordset novo
rsID.Open “@@IDENTITY SELETO como NewID”, conexão
rsID de Msgbox (“NewID”)
Fazer obviamente isto antes de fechar sua conexão da DEMORA.