PRB: Requery of ADODB.Recordset Returns Unknown Error Message (80040e4b) with Microsoft Remote Provider (268972)

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new Visual Basic project.
2. From the Projects menu, click References, and then add a reference to Microsoft ActiveX Data Objects.
3. Paste the following code into the module for Form1:

   Private conn As ADODB.Connection
   Private rs As ADODB.Recordset
   Private cmd As ADODB.Command
   
   Private Sub Form_Load()
   
       Dim strConn As String
       strConn = "Provider=MS Remote;Remote Server=http://MyServer;DSN=Northwind;"
   
       Set conn = New ADODB.Connection
       conn.CursorLocation = adUseClient
       conn.Open strConn
       
       Set cmd = New ADODB.Command
       Set cmd.ActiveConnection = conn
       cmd.CommandText = "Select CategoryName, Description From Categories Where CategoryID=?"
       cmd.Parameters.Append cmd.CreateParameter(, adInteger, adParamInput, , 1)
           
       Set rs = cmd.Execute()
       MsgBox rs("CategoryName")
       
       ' If the following two lines are uncommented, the Requery works.
   
       ' cmd.Parameters.Delete 0
       ' cmd.Parameters.Append cmd.CreateParameter(, adInteger, adParamInput, , 1)
   
       rs.Requery   ' >>> error message "Unknown error" (80040e4b)
       
       rs.Close
       Set rs = Nothing
       Set conn = Nothing
   End Sub
   					

4. If necessary, modify the connection string and query.
5. Run the project. The error message described in the "Symptoms" section occurs.