Textbox数据格式与字段格式不相容？

我的保存代码为：
Private Sub SaveCmd_Click()
openrs---打开RS的函数
rs.AddNew
rs!LOTNO = Trim(TxtLOTNO.Text)
rs!NO = Trim(TxtNO.Text)
rs!Item = Trim(ComboItem.Text)
rs!TestBF = Trim(TxtBF.Text)
rs!TestAF = Trim(TxtAF.Text)
rs.Fields!ChgRate = Trim(TxtChgRate.Text)----Textbox和对应的字段
rs.Update
MsgBox "本次試驗信息添加成功!", vbOKOnly
rs.Close
End Sub
数据库是Access。窗体界面上有一textbox--TxtchgRate，设置其dataformat为“百分数，2位小数”对应数据库字段里的相关设置为：
字段类型：数字
字段大小：单精度型
格式：百分比
小数位数：2
索引：有(有重复)
目前该字段所在的无记录。执行savecmd后，在rs.Fields!ChgRate = Trim(TxtChgRate.Text)报错：“多步操作产生错误，请检查每一步的状态值”

试过将字段大小改为“小数，双精度型”都会出现同样的错误。

请问阿泰，为什么会这样？