Pomocí SELECT SCOPE_IDENTITY() v ADODB Recordset

Když spustíte dávku příkazů pomocí ADODB, věřím, že každý z nich běží samostatně. Chcete-li vynutit spuštění dalšího příkazu, musíte použít následující:

Set rs = rs.NextRecordset()

Změna konce rutiny na následující by měla stačit:

Set rs = New ADODB.Recordset
rs.Open SQLStr, cn, adOpenKeyset, adLockOptimistic
Set rs = rs.NextRecordset
MsgBox (rs.Fields(0).Value)