PRB: DataGrid and MSHFlexGrid Do Not Scroll Properly Beyond 65,535 Rows (253211)

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new Standard EXE in Microsoft Visual Basic. Form1 is created by default.
2. On the Project menu, select References, and add Microsoft ActiveX Data Objects 2.x Library.
3. On the Project menu, select Components, and add the following:

   Microsoft DataGrid Control 6.0 (OLEDB)
   Microsoft Hierarchical FlexGrid Control 6.0 SP3 (OLEDB)

4. Place two Command buttons, a DataGrid, and a MSHFlexGrid on Form1.
5. Place the following code into Form1:

   Option Explicit
   
   Dim rs As ADODB.Recordset
   
   Private Sub Command1_Click()
      Set rs = New ADODB.Recordset
      With rs
         .Fields.Append "Record Number", adBigInt
         
         .Open
         
         Dim x As Long
         For x = 1 To 65535
            .AddNew
            ![Record Number] = x
            .Update
         Next x
      End With
      
      Set DataGrid1.DataSource = rs
      Set MSHFlexGrid1.DataSource = rs
      Command2.Enabled = True
   End Sub
   
   Private Sub Command2_Click()
      Dim x As Long
      With rs
         For x = 1 To 5
            .AddNew
            ![Record Number] = .RecordCount
            .Update
         Next x
      End With
      
      Set MSHFlexGrid1.DataSource = rs
   End Sub
   
   Private Sub Form_Load()
      Command1.Caption = "Add 64K"
      Command2.Caption = "Add 5"
      Command2.Enabled = False
   End Sub
   					

6. Run the code and click Add 64K. Drag the thumbtrack to the bottom of the vertical scrollbar on each grid, and note that the grids scroll properly.
7. Click the Add 5 Command button until you have enough records to scroll past record number 65,537. Drag the thumbtrack to the bottom of the vertical scrollbar on each grid, and note that the thumbtrack jumps to the top of the recordset when released at the bottom.