PRB: ADO Does Not Return Records After an Update

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new Standard EXE project in Visual Basic 6.0. Form1 is created by default.
2. From the Project menu, select References, and then add a reference to "Microsoft ActiveX Data Objects Library".
3. Add a command button to your form; this would default to Command1.
4. Place the following code in the general declaration section of Form1.
   
   Note Change the Data Source name accordingly to your SQL Server.
   
   Note: You must change User ID=<username> and Password=<strong password> to the correct values before you run this code. Make sure that User ID has the appropriate permissions to perform this operation on the database.

     Option Explicit
   
        Private Sub Command1_Click()
   
            Dim cn As New ADODB.Connection
            Dim rs As New ADODB.Recordset
            Dim rst As ADODB.Recordset
            Dim Str As String
   
            With cn
               .Provider = "SQLOLEDB"
               .Open "Data Source=Test;User ID=<user name>;Password=<strong password>;"
               .DefaultDatabase = "Pubs"
            End With
   
            ' Un-comment the following line to demonstrate Workaround 1
            ' cn.Execute "SET NOCOUNT ON "
   
            ' Passing an Insert statement followed by a Select statement
            ' as the source of the recordset
            Str = "Insert into Jobs (job_desc, min_lvl, max_lvl) Values " _
                      & "('Support Professional', 25, 75) " _
                      & " Select * from Jobs"
   
            rs.CursorLocation = adUseClient
            rs.Open Str, cn, adOpenStatic, adLockOptimistic, adCmdText
   
            ' Un-comment the following two lines to demonstrate Workaround 2
            ' Set rs = rs.NextRecordset
   
            ' For workaround 2, please comment the following line
            MsgBox rs(1)
   
            MsgBox "Done..."
   
            cn.Close
   
         End Sub
   					

5. Run the project and note that error 3265 is returned.