Как узнать ID новой вставленной записи в таблице? - VB

Формулировка задачи:

Добрый день! Добавляю запись в таблицу на сервере SQL SERVER через recordset, в которой есть ключевое поле identity increment (счетчик) с помошью макроса:

cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=OLAP_DWH_DEV;Data Source=wruistb008"
            cnn.Open
            sqlquery = "SELECT * FROM table"

            rst.Open sqlquery, cnn, adOpenStatic, adLockOptimistic
            
            rst.AddNew
            rst.Fields("Date_start_promo").Value = Date
            ...
            rst.Update

            ID = rst.Fields("ID_Promo").Value

Проблема в том, что ID пусто, такое ощущение, что сервер код добавил в запись, а в recordset не обновил данные(
Пробывал
rst.requery - записи обовляются, но rst перепрыгивает на 1-ую запись.

Решение задачи: «Как узнать ID новой вставленной записи в таблице?»

textual
                            Листинг программы 
                        

                            cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=OLAP_DWH_DEV;Data Source=wruistb008"
            cnn.CursorLocation = adUseClient
            cnn.Open
            
            rst.Open sqlquery, cnn, adOpenStatic, adLockBatchOptimistic
            rst.AddNew
            rst.Fields("Date_start_promo").Value = Date
            ...
            rst.Update
            rst.UpdateBatch

            ID = rst.Fields("ID_Promo").Value

                        