Вы должны мочь сделать это ПОСЛЕ вашей вставки:
Тусклое rsID как ADODB.Recordset
Установите rsID = новое ADODB.Recordset
rsID.Open «ОТБОРНОЕ @@IDENTITY как NewID», conn
rsID Msgbox («NewID»)
Очевидно сделайте это перед закрывать ваше соединение СУЕТЫ.