Using “SELECT SCOPE_IDENTITY()” in ADODB Recordset

Question

Using a VBA script in Excel, I\'m trying to insert a new row into a table and then get back the identity value of that row. If I run:

Answer 1

When you run a batch of commands using ADODB, I believe it runs each one seperately. To force the next command to run, you have to use the following:

Set rs = rs.NextRecordset()

Changing the end of your routine to the following should do the trick:

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