BUG: RDO Rowcount May Be Wrong When Using rdAsyncEnable Flag

Steps to Reproduce Problem

1. Start the 32-bit Edition of Visual Basic version 4.0 for Windows. Form1 is created by default.
2. Add a single Command button to the form.
3. Add the following code to the Command1 Click Event.
   
   Note You must to change Username= <username> and PWD =<strong password> to the correct values before you run this code. Make sure that Username has the appropriate permissions to perform this operation on the database.

      Private Sub Command1_Click()
      Dim rdoConn As rdoConnection
      Dim rdoRes As rdoResultset
      Dim tempStr As String
   
          Set rdoConn = rdoEnvironments(0).OpenConnection("", _
                                       rdDriverNoPrompt, _
                                       False, "DRIVER={SQL Server};" & _
                                       "SERVER=MySQLServer;DATABASE=pubs;" & _
                                       "Username=<username>;PWD=<strong password>;")
   
         Set rdoRes = rdoConn.OpenResultset("select * from authors", _
                                            rdOpenKeyset, rdConcurLock, _
                                            rdAsyncEnable)
   
         While rdoRes.StillExecuting
           DoEvents
         Wend
         Debug.Print rdoRes.RowCount
         rdoRes.Close
         rdoConn.Close
   
      End Sub
   
   						

4. From the File menu, select Save.
5. Press the F5 key, or click Start on the Run menu to run the application. Click on Command1 and note that in the debug window the number 0 appears.