BUG: Invalid Operation After Setting RDC Resultset = Nothing

MORE INFORMATION

Steps To Reproduce Problem

1. Start Visual Basic 4.0. Form1 is created by default.
2. Add a single Remote Data control to Form1.
3. Add the following code to the form, making sure to change the OpenConnection parameters to match an existing data source.
   
   Note You must change UID =<username> and PWD =<strong password> to the correct values before you run this code. Make sure that UID has the appropriate permissions to perform this operation on the database.

      Private Sub Form_Click()
         Dim cn As rdoConnection
           Dim rsTemp As rdoResultset
   
           Set cn = rdoEnvironments(0).OpenConnection("", rdDriverNoPrompt, _
            False, "DSN=MyDSN;database=pubs;uid=<username>;pwd=<strong password>;")
           Set rsTemp = cn.OpenResultset("Select * From Authors;", _
            rdOpenKeyset)
           Set MSRDC1.Resultset = rsTemp
           MSRDC1.Refresh
           Set MSRDC1.Resultset = Nothing
           MSRDC1.Refresh
      End Sub
   						

4. Press the F5 key, or select Start from the Run menu to run the application. Click once on the form to execute the code and to see the error.