BUG: Error Disassociating Resultset from rdoConnection

MORE INFORMATION

Steps to Reproduce the Behavior

1. Create a new project.
2. Click References on the Project menu, and check Microsoft Remote Data Object 2.0.
3. Add a Command Button to Form1.
4. Add the following code to the General Declarations of Form1:
   Note You must change Uid=<username> and Pwd=<strong password> to the appropriate username and password before you run this code. Make sure that the changed uid has the appropriate permissions to perform the required operations on the specified database.

         Private Sub Command1_Click()
            Dim Rs As rdoResultset
            Dim Cn As rdoConnection
            Dim strConnect As String
            Dim Query1 As rdoQuery
   
            strConnect = "Driver={SQL Server};Server=MyServer;" & _
            "Database=pubs;Uid=<username>;Pwd=<strong password>"
            rdoEnvironments(0).CursorDriver = rdUseClientBatch
            Set Cn = rdoEnvironments(0).OpenConnection(dsName:="", _
            Prompt:=rdDriverNoPrompt, ReadOnly:=False, Connect:=strConnect)
   
            'To run without error, uncomment the next line and comment the
            'following 2 lines.
            'Set Query1 = Cn.CreateQuery("Query1", _
              "SELECT au_id, au_lname, au_fname FROM authors")
            Set Query1 = Cn.CreateQuery("Query1", _
              "SELECT au_id, au_lname, au_fname FROM authors WHERE au_id = ?")
            Cn.rdoQueries("Query1").rdoParameters(0) = "238-95-7766"
   
            Set Rs = Cn.rdoQueries("Query1").OpenResultset(rdOpenStatic, _
              rdConcurBatch)
            Set Rs.ActiveConnection = Nothing       ' This causes the error
            Rs.MoveLast
            Rs.MoveFirst
              Do Until Rs.EOF
              Debug.Print Rs(1)
              Rs.MoveNext
            Loop
            Cn.Close
         End Sub
   						

5. Press the F5 key to run the project. Click Command1. You will receive the run-time error '40070' when setting the ActiveConnection to Nothing.