PRB: Recordset Name Property is Limited to 256 Characters

MORE INFORMATION

Steps to Reproduce Behavior

1. Start a new project in Visual Basic. Form1 is created by default.
2. Add a Data Control(Data1) and a CommandButton (Command1) to Form1.
3. In the Click event of Command1, place the following code:

         Private Sub Command1_Click()
           Dim DB As Database, RS As Recordset
           Dim SQLStr As String
   
           Set DB = DBEngine.Workspaces(0).OpenDatabase("Biblio.MDB")
   
           'This SQL Statement cause Run-time error 3075.
           SQLStr = "Select PubID, Name, [Company Name], Address, " _
            & "City, State, PubID, Name, [Company Name], Address, City, " _
            & "State, PubID, Name, [Company Name], Address, City, State, " _
            & "PubID, Name, [Company Name], Address, City, State " _
            & "from Publishers Where PubID = 2 and State = 'MA'"
   
           'This SQL Statement cause Run-time error 3061.
           'SQLStr = "Select PubID, Name, [Company Name], Address, City, " _
           ' & "State, PubID, Name, [Company Name], Address, City, State, " _
           ' & "PubID, Name, [Company Name], Address, City, State, " _
           ' & "PubID, Name, [Company Name], Address, City, State, " _
           ' & "PubID from Publishers Where PubID = 2 and State = 'MA'"
   
           Set RS = DB.OpenRecordset(SQLStr, dbOpenDynaset)
           Set Data1.Recordset = RS
           Debug.Print RS.Name
           Debug.Print Data1.RecordSource
           Data1.Refresh
   
         End Sub
   						

4. Start the program by pressing the F5 key.
5. Click the Command1 button to execute the code. You will receive one of the errors listed above.