Vb6 adodb updateBatch存储不正确的信息

Vb6 adodb updateBatch存储不正确的信息,vb6,adodb,Vb6,Adodb,我有一个VB6程序，使用adodb记录集和MicrosoftAccess2007数据库文件；我向应用程序中添加了代码，用于获取表中的每条记录，对于表中的大多数记录，我获取一个字段，根据该字段中的值计算一个新值，并将该值存储在同一记录中的另一个字段中。我对此进行了测试并投入生产；它正在大量笔记本电脑上运行，没有报告错误 我今天报告了一个错误；据我所知，记录集上的updateBatch方法存储的值与我放在那里的值略有不同，当然与我打算放在那里的值不同。我已将其放入调试器中，并验证新值是否为我想要的值

sqlStr = "Select key_citation, long_citeIndex from citation"
Set rs = m_dbh.runSQLReturnRS_RW(sqlStr)
While Not rs.EOF
    citationNumber = rs.Fields("key_citation").value
    If Left$(citationNumber, 1) <> "W" Then
        newIndex = Citation.calculateCiteIndex(citationNumber)
        Open "c:\CitationIndexDebug.txt" For Append As #4
        Write #4, citationNumber, newIndex
        Close #4
        rs.Fields("long_citeIndex").value = newIndex
    End If
    rs.MoveNext
Wend
rs.UpdateBatch
rs.Close
Set rs = Nothing

 sqlStr = "SELECT key_citation FROM citation"
 Set rs = m_conn.Execute(sqlStr, , adCmdText Or adOpenForwardOnly)
 While Not rs.EOF
     citationNumber = rs.Fields(0).Value
     If Left$(citationNumber, 1) <> "W" Then
         newIndex = Citation.calculateCiteIndex(citationNumber)
         m_conn.Execute "UPDATE citation SET long_citeIndex = " & CStr(newIndex) & " WHERE key_citation = " & CStr(citationNumber), , adCmdText
     End If
     rs.MoveNext
 Wend rs.UpdateBatch
 rs.Close
 Set rs = Nothing