FIX: Error Setting Sort to Char Field Greater than 255

MORE INFORMATION

Steps to Reproduce Behavior

1. Start Visual Basic and create a Standard EXE Project.
2. On the Project menu, choose References and add a reference to Microsoft ActiveX Data Objects 2.0 Library.
3. Place the following code in the Load Event of the form. Note that "Description" is a Memo field in the Categories table of the Nwind.MDB database that comes with Visual Basic:

      Private Sub Form_Load()
            Dim rs1 As New ADODB.Recordset
            Dim rs2 As New ADODB.Recordset
            Dim cn As New ADODB.Connection
            Dim rs3 As New ADODB.Recordset
   
            
   rs1.Fields.Append "F1", adInteger
            rs1.Fields.Append "F2", adChar, 255
            rs1.Open
            rs1.Sort = "F2" '<==  This works
            rs2.Fields.Append "F1", adInteger
            rs2.Fields.Append "F2", adChar, 256
            rs2.Open
            rs2.Sort = "F2" '<==  Error occurs here, ADO 2.0 or earlier
               
        End Sub
   					

4. Press the F5 key to run the code.