BUG: First Row Is Not Saved if ADO Recordset Is Bound to Any Control and Persisted to XML (287083)

MORE INFORMATION

Steps to Reproduce Behavior

1. Open a new Standard EXE project in Visual Basic. Form1 is created by default.
2. On the Project menu, click to select References. From the list of available references, select Microsoft ActiveX Data Objects 2.5 Library.
3. Place a CommandButton and a TextBox control on Form1.
4. Copy and paste the following code:

   Option Explicit
   Dim cn As ADODB.Connection
   Dim rs As ADODB.Recordset
   
   Private Sub Form_Load()
   Set cn = New ADODB.Connection
   cn.Open "Provider=SQLOLEDB.Connection;Data source=<SERVERNAME>;user id=sa;password=;Initial Catalog=Northwind;"
   cn.CursorLocation = adUseClient
   
   Set rs = New ADODB.Recordset
   rs.Open "Select Employeeid,Lastname,firstname,Birthdate from employees", cn, adOpenStatic, adLockReadOnly
   
   Set Text1.DataSource = rs
   Text1.DataField = "LastName"
   End Sub
   Private Sub Command1_Click()
   rs.Save "c:\temp\test.xml", adPersistXML
   
   End Sub
   					

5. Run the program, click Command1, and then stop the project.
6. Open test.xml, and note that the first record of the Employees table is not saved.