Recordset.Save保存为XML文件，第一行的记录丢失的问题

Question

用Recordset.Save保存为XML文件，每保存一次，就自动丢失第一行，用TAG文件就没有问题，请问如何解决？我的环境：VB6SP5，MDAC2。7代码：
'*** 保存RECORDSET到XML
Private Sub Command3_Click()
    On Error Resume Next
    If Len(Dir$(LOCAL_FILE)) > 0 Then
        Kill LOCAL_FILE
    End If
    
    On Error GoTo ErrorHandler
    With Adodc1.Recordset
        .Filter = ""
        .Save LOCAL_FILE, adPersistXML
    End With
    Exit Sub
ErrorHandler:
    MsgBox Err.Description
End Sub'*** 读取XML
Private Sub Command4_Click()
    On Error GoTo ErrorHandler
    Dim rs As New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.LockType = adLockBatchOptimistic
    rs.Open LOCAL_FILE
    Set Adodc1.Recordset = rs
    Exit Sub
ErrorHandler:
    MsgBox Err.Description
End Sub

Answer 1

应该没有问题
用adodb对象
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
    rs.CursorLocation = adUseClient
    rs.Open "Select * from students", cn, adOpenStatic, adLockBatchOptimistic
    MsgBox rs.RecordCount
    '保存为XML
    rs.Save "c:\bbb.xml", adPersistXML
    rs.Close
    '读取XML文件
    rs.Open "c:\bbb.xml", cn, adOpenStatic, adLockReadOnly, adCmdFile
    MsgBox rs.RecordCount
    rs.Close
End SubPrivate Sub Form_Load()
    If cn.State = 1 Then
        cn.Close
    End If
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\db1.mdb"
End Sub