FIX: GetRows Method of ADO Object Returns Incorrect Value

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a Standard EXE project in Visual Basic. Form1 is created by default.
2. Add a CommandButton to form1.
3. Add the following code to the click event of the command button. This assumes that you have a DSN called "Test" which points to an Access table called "test1" with greater then 1000 records. (Create table test1 in an access database with one column c1 (number)-Insert more than thousand records into the same):

         Dim conn As Object, rs As Object
         Dim myArray As Variant
         Set conn = CreateObject("ADODB.Connection")
         conn.open ("DSN=Test")
         Set rs = conn.Execute("select * from test1")
   
         myArray = rs.getrows(1000)
         ' uncomment the following line to receive correct value in MsgBox.
         'myArray = rs.getrows(100)
   
         MsgBox rs("c1")
         rs.Close
         Set rs = Nothing
         conn.Close
         Set conn = Nothing