相当奇怪的问题！！vb数据库的第一条记录会无故改变

程序除了查询就是插入数据，无其他操作
插入数据代码如下：

Dim sqlstr As String
    Set conn = New adodb.Connection
    Set RS = New adodb.Recordset
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Date & ".mdb;Persist Security Info=False"
    sqlstr = "select * from 重量"
    RS.Open sqlstr, conn, 3, 2
    RS.AddNew
    RS.Fields("冠字号") = lbGzh.Caption
    RS.Fields("编号") = lbXh.Caption
    RS.Fields("重量kg") = zl
    RS.Fields("时间") = Now()
    RS.Fields("工号") = lbGh.Caption
    RS.Update
    
    RS.Close
    Set RS = Nothing
    conn.Close
    Set conn = Nothing

数据库的第一个字段为“冠字号”
有时数据库的第一条记录（此时已经存放了许多记录）的第一个字段（也就是“冠字号”）会改为lbGh.Caption的内容（也就是“工号”）

由于该问题相当奇怪
忘哪位大侠帮忙
如问题解决可“重金”答谢！！！！


问题应该不在你发的这段程序里，查查其他代码吧 查一下写数据库的代码，看看有无错误。 看看lbGzh.Caption会不会出错。

补充：VB ,  数据库(包含打印，安装，报表)