PRB: "Invalid Cursor Position" Using UserConnection to GetChunk

MORE INFORMATION

Steps to Reproduce Behavior

1. Start a new project in Visual Basic and choose "Standard EXE." Form1 is created by default.
2. On the Project menu, click Components, click the Designer tab, and then place a check next to Microsoft UserConnection.
3. On the Project menu, click Add ActiveX Designer, and then click Microsoft UserConnection. This will bring up a dialog titled UserConnection1 Properties.
4. On the Connection tab, select either a DSN or DSN-less connection and fill in the appropriate information. If you select DSN-less, make sure you specify a database in the Other ODBC Attributes area with database=Pubs. On the Authentication tab, fill in your username and password, and place a check next to Save Connection Information for Design Time.
5. Click OK to save this information, and return to the Designer window.
6. Insert a new Query by right-clicking on UserConnection1 and choosing Insert Query or by clicking on the Insert Query toolbar icon.
7. From the Source of Query, choose Based on User-Defined SQL. Then type the following SQL into the TextBox:
   
   Select pub_id, pr_info From pub_info
8. Click OK to save this information.

1. Add a CommandButton, Command1, to Form1.
2. Add a TextBox, Text1, to Form1. Set the MultiLine property to True; ScrollBars property to 3 - Both.
3. In the Command1_Click() event, paste the following code:

         Private Sub Command1_Click()
            Dim cn As New UserConnection1
            Dim rs As rdoResultset
            Dim ColSize As Long
            With cn
               .EstablishConnection       'Establish connection
   
       ' **** Un-comment the following line to change default cursor to Keyset
       '       .rdoQueries("Query1").CursorType = rdOpenKeyset
       ' ****
               .Query1
            End With
   
            Set rs = cn.LastQueryResults
            If rs!pr_Info.ChunkRequired Then
               ColSize = rs!pr_info.ColumnSize
               Text1.Text = rs!pr_info.GetChunk(ColSize)
            Else
               Text1.Text = rs!pr_info
            End If
   
            rs.Close
            cn.Close
         End Sub
   
   						

4. Start the program or press the F5 key.