PRB: Bookmarks Are Not Persisted or Marshalled (191084)

MORE INFORMATION

Steps to Reproduce Behavior

1. Start Visual Basic.
2. Add a project reference to the Microsoft ActiveX Data Objects Library.
3. Paste the following code in the default forms Load method:

         Dim oRs As ADODB.Recordset      
         Set oRs = New ADODB.Recordset
   
         With oRs
          .CursorLocation = adUseClient
          .CursorType = adOpenStatic
          .LockType = adLockBatchOptimistic
          .Fields.Append "c_col1", adChar, 2
          .Fields.Append "c_col2", adChar, 2
          .Open
         End With
   
         oRs.AddNew
         oRs(0) = "1"
         oRs.Update
         oRs.AddNew
         oRs(0) = "2"
         oRs.Update
         oRs.AddNew
         oRs(0) = "3"
         oRs.Update
         oRs.MoveFirst
   
         Debug.Print oRs.RecordCount
         Debug.Print oRs.Bookmark
   
         'Delete the first row, move to the new first row, and check its book
         'mark value.
         oRs.Delete
         oRs.MoveFirst
         Debug.Print oRs.Bookmark
   
         'The Save method can not overwrite existing files.
         On Error Resume Next
         Kill "C:\mytmp.txt"
         On Error GoTo 0
   
         oRs.Save "C:\mytmp.txt"
         oRs.Close
         Set oRs = Nothing
   
         'Re-open persisted file and check the first row's bookmark.
         'Prior to persisting the recordset the first row's bookmark was a 2.
   
         Set oRs = New ADODB.Recordset
         oRs.Source = "C:\mytmp.txt"
         oRs.Open
         oRs.MoveFirst
         Debug.Print oRs.Bookmark
         Debug.Print oRs.RecordCount
         Debug.Print oRs(0)
   
         Unload Me
   					

4. From the View menu, choose Immediate Window.
5. Press the F8 key repeatedly to step through the code.