FIX: RDO BatchUpdate Causes Visual Basic 5.0 to Crash

MORE INFORMATION

Steps to Reproduce Behavior

1. Start a new Visual Basic 5.0 project, and add a reference to "Microsoft Remote Data Objects 2.0."
2. Add one CommandButton (Command1) to the default form , Form1.
3. Copy the following code and paste it in the Command1 Click event:

         Private Sub Command1_Click ()
            Dim cn As New rdoConnection
            Dim strConnect  As String
            Dim rs As rdoResultset
            Dim c As rdoColumn
            Dim e As rdoError
            Dim sqlstr As String
            Dim i As Integer
   
            On Error GoTo ErrorHandler
            strConnect = "DRIVER={sql server};" & _
                         "SERVER=<servername>;DATABASE=<database>;" & _
                         "UID=<UserID>;PWD=<password>"
   
            cn.Connect = strConnect
            cn.CursorDriver = rdUseClientBatch
            cn.EstablishConnection
   
         'Use this line if the table exists
         'cn.Execute "DROP TABLE tblTest", rdExecDirect
   
         'This line builds a table
         cn.Execute "CREATE TABLE tblTest (id INT PRIMARY KEY," & _
                 "Test_Co1 CHAR(8),Test_Column_Nu2 CHAR(15)," & _
                 "Test_Colum3 CHAR(11),Test_Colu4 CHAR(10)," & _
                 "Test_Column5 CHAR(12), Test_Colum6 CHAR(11), " & _
                 "Test_Column_Num7 CHAR(16)," & _
                 "Test_Column_Number8 CHAR(19), " & _
                 "Test_Colum9 CHAR(11),Test_Colu10 CHAR(11)," & _
                 "Test_Colu11 CHAR(11),Test_Column_N12 CHAR(15)," & _
                 "Test_Column_13 CHAR(14),Test_Colu14 CHAR(11)," & _
                 "Test_Colu15 CHAR(11),Test_Colu16 CHAR(11)," & _
                 "Test_Colu17 CHAR(11),Test_Colu18 CHAR(18)," & _
                 "Test_19 CHAR(7),Test_20 CHAR(7)," & _
                 "Test_21 CHAR(7),Test_Colu22 CHAR(11)," & _
                 "Test_Column_23 CHAR(14), Test_Column24 CHAR(13)," & _
                 "Test_Column_Nu25 CHAR(16),Test_Column_Nu26 CHAR(16)," & _
                 "Test_27 CHAR(7),Test_Col28 CHAR(10)," & _
                 "Test_C29 CHAR(8),Test_Colu30 CHAR(11)," & _
                 "Test_Colum31 CHAR(12),Test_Column_Num32 CHAR(17)," & _
                 "Test_C33 CHAR(8),Test_Column_34 CHAR(14)," & _
                 "Test_Column_35 CHAR(14))", rdExecDirect
   
            Set rs = cn.OpenResultset("Select * from tblTest", _
                     rdOpenKeyset, rdConcurBatch)
            i = 1
            rs.AddNew
            rs!id = 1
            For i = 1 To 35
              rs(i) = "String1"  'Enter any string data
            Next
            rs.Update
            rs.BatchUpdate        'At this line Dr. Watson error occur
   
            Set rs = Nothing
            Set cn = Nothing
   
            MsgBox "Finished!"
   
            Exit Sub
   
         ErrorHandler:
         ' Display the error number and description from the rdoErrors
         For Each e In rdoErrors
            MsgBox e.Number & e.Description
         Next e
   
         End Sub
   
   						

4. Modify the connection string to reflect your server name, database name, user id, and user password.
5. Save the project, and press the F5 key to run it. At this point, Visual Basic 5.0 crashes and a Dr. Watson error occurs.
6. Modify the table structure using shorter or longer column names. Use the following code which uses shorter field names:

         cn.Execute "CREATE TABLE tblTest (id INT PRIMARY KEY," & _
                    "Test1 CHAR(8), Test2 CHAR(15)," & _
                    "Test3 CHAR(11), Test4 CHAR(10), " & _
                    "Test5 CHAR(12), Test6 CHAR(11), " & _
                    "Test7 CHAR(16), Test8 CHAR(19), " & _
                    "Test9 CHAR(11), Test10 CHAR(11), " & _
                    "Test11 CHAR(11), Test12 CHAR(15), " & _
                    "Test13 CHAR(14), Test14 CHAR(11), " & _
                    "Test15 CHAR(11), Test16 CHAR(11), " & _
                    "Test17 CHAR(11), Test18 CHAR(18), " & _
                    "Test19 CHAR(7), Test20 CHAR(7), " & _
                    "Test21 CHAR(7), Test22 CHAR(11), " & _
                    "Test23 CHAR(14), Test24 CHAR(13), " & _
                    "Test25 CHAR(16), Test26 CHAR(16), " & _
                    "Test27 CHAR(7), Test28 CHAR(10), " & _
                    "Test29 CHAR(8), Test30 CHAR(11), " & _
                    "Test31 CHAR(12), Test32 CHAR(17), " & _
                    "Test33 CHAR(8), Test34 CHAR(14), " & _
                    "Test35 CHAR(14))", rdExecDirect
   
   						

7. Run the project and notice that the project runs. This time the "Finished" message appears on the screen.