为什么committrans后，datagrid里的记录都变成了#ERROR?

Question

保存按钮代码如下
        On Error GoTo SaveError
        Set DTPBuydate.DataSource = Nothing     '防止更新出错
            RsTool!ToolNo = TxtNo.Text
            RsTool!ToolName = txtname.Text
            RsTool!Type = CmbType.Text
            RsTool!buydate = DTPBuydate.Value
            If CmbQuantity.Text = "" Then
                RsTool!quantity = 0
            Else
                RsTool!quantity = Int(CmbQuantity.Text)
            End If
            RsTool!Maintainer = CmbMaintainer.Text
            RsTool!re = TxtRe.Text
        Set DTPBuydate.DataSource = RsTool
    ConnMain.CommitTrans