PRB: Update After AddNew Using Oracle Driver Generates an Error (192142)

MORE INFORMATION

Steps to Reproduce Behavior

1. Start Visual Basic 5.0 Enterprise Edition.
2. Create a new Standard EXE. Form1 is created by default.
3. Add "Microsoft Remote Data Objects 2.0" to the Project References.
4. Add the following code to the new form's Load method:

         Dim rs As rdoResultset
         Dim cn As New rdoConnection
         cn.CursorDriver = rdUseClientBatch
         cn.Connect = "dsn=<dsn>;uid=<uid>;pwd=<pwd>"
         cn.EstablishConnection
         cn.Execute "CREATE TABLE temp1 (id int, name char(20))"
         cn.Execute "CREATE UNIQUE INDEX temp1_id on temp1 (id)"
         cn.Execute "GRANT ALL ON temp1 TO PUBLIC"
         cn.Close
   
         On Error GoTo Erh
   
         For i = rdUseIfNeeded To rdUseClientBatch
            cn.CursorDriver = i
            cn.EstablishConnection
            Set rs = cn.OpenResultset("select * from temp1", rdOpenKeyset, _
            rdConcurRowVer)
            rs.AddNew
            rs(0) = i
            rs(1) = "Also works fine"
            rs.Update   '<-- Errors occur here
            cn.Close
         Next
            cn.EstablishConnection
            cn.Execute "DROP TABLE temp1"
         End
   
         Erh:
            sterr = Error & Chr(13) & "With CursorDriver "
            Select Case cn.CursorDriver
               Case rdUseServer
                  sterr = sterr & "rdUseServer"
               Case rdUseOdbc
                  sterr = sterr & "rdUseOdbc"
               Case rdUseNone
                  sterr = sterr & "rdUseNone"
               Case rdUseIfNeeded
                  sterr = sterr & "rdUseIfNeeded"
               Case rdUseClientBatch
                  sterr = sterr & "rdUseClientBatch"
               Case Else
            End Select
            MsgBox sterr
            Resume Next
         End Sub
   
   						

5. Run the Project and note that the Update fails with the error mentioned earlier.