PRB: Error in ADO Recordset with 255 Fields from Visual FoxPro Table (300184)

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new folder on your hard disk named VFPTest (for example, C:\VFPTest).
2. Create a Free table directory Visual FoxPro ODBC system data source name (DSN) named FOXTEST by specifying the path to the C:\VFPTest folder.
3. Open a new Standard EXE project in Visual Basic. Form1 is created by default.
4. Set a project reference to the Microsoft ActiveX Data Objects 2.x Library.
5. Place a Command button on Form1.
6. Copy and paste the following code in the Click event procedure of the command button:

   Dim cn As New ADODB.Connection
   cn.Open "FOXTEST"
   
   Dim sqlstr As String
   Dim fldcount As Integer
   
   'Code to create a Visual FoxPro table with 255 columns
   
   sqlstr = "Create Table c:\vfptest\Repro255 ("
   For fldcount = 1 To 255
     sqlstr = sqlstr & "Field" & fldcount & " int NOT NULL,"
   Next
   
   sqlstr = Mid(sqlstr, 1, Len(sqlstr) - 1)
   sqlstr = sqlstr & ")"
   
   cn.Execute sqlstr
   
   'Code to insert a dummy record into the sample table
   
   sqlstr = "Insert into c:\vfptest\Repro255 values("
   For fldcount = 1 To 255
     sqlstr = sqlstr & fldcount & ","
   Next
   sqlstr = Mid(sqlstr, 1, Len(sqlstr) - 1)
   sqlstr = sqlstr & ")"
   
   cn.Execute sqlstr
   
   'Code to run a SELECT statement against the dummy table
   
   Dim rs As ADODB.Recordset
   Set rs = New ADODB.Recordset
   rs.Open "Select * from c:\vfptest\repro255.dbf", cn, adOpenKeyset, adLockOptimistic
   
   'Code to construct a SELECT query that retrieves the first 254 columns from the sample table
   
   'sqlstr = "Select "
   'For fldcount = 1 To 254
   '  sqlstr = sqlstr & "field" & fldcount & ","
   'Next
   'sqlstr = Mid(sqlstr, 1, Len(sqlstr) - 1)
   'sqlstr = sqlstr & " from c:\vfptest\repro255.dbf"
   'rs.Open sqlstr, cn, adOpenKeyset, adLockOptimistic
   
   'Display value of the first field in the recordset
   Debug.Print rs.Fields(0)
   
   rs.Close
   cn.Close
   					

7. The preceding code generates and runs dynamic SQL statements to create a Visual FoxPro table named Repro255 with 255 NOT NULL columns and inserts a dummy record into it. Then, an ADO Recordset is opened by specifying the query Select * from Repro255 as the source SQL. The Debug.Print statement is included to write out the value of the first field in the first record (the dummy record that is inserted by running the Insert statement) of the recordset to the Visual Basic Immediate window.
8. Save and run the project. Click the command button on the form to run the preceding Visual Basic code. The above-mentioned error occurs as the Debug.Print statement attempts to access and write out the value of the first field in the first record of the ADO Recordset to the Visual Basic Immediate window.
9. Stop running the project.
10. Comment out the currently active rs.Open statement, and uncomment the segment of code that constructs a dynamic SELECT statement to retrieve the first 254 columns from the Repro255 table.
11. Save and run the project. Click the command button when the form is displayed to run the modified Visual Basic code. Notice that the value of the first field is written out to the Visual Basic Immediate window as expected.