你好！
    我又有问题了，问题如下：
子程序：
dim RS1 as new ADODB Recordset

Private Sub SetValue()  '给各字段负值
RS1.Fields("介质编号") = Text1.Text
RS1.Fields("分子式") = Text2.Text
RS1.Fields("闪点（℃）") = Text3.Text
RS1.Fields("外观和气味") = Text4.Text
RS1.Fields("介质名称") = Text5.Text
RS1.Fields("爆炸极限") = Text6.Text
RS1.Fields("自燃点（℃）") = Text7.Text
RS1.Fields("危险特性") = Text8.Text
RS1.Fields("灭火方法") = Text9.Text
RS1.Fields("用途") = Text10.Text
End Sub
其中“介质编号”的数据类型是文本型，必填字段；“闪点”和“自燃点”的数据类型是数字，非必填字段；其他字段的数据类型都是备注。
问题：
对Text3.Text和Text7.Text负值为空时即对两个数字型的字段（“闪点”“自燃点”）负值为空时程序就运行出错，错误信息如下：实时错误'-2147217887（80040e21）'  多步操作产生错误，请检查每一步的状态值。（其他字段负值为空或不为空时程序都正常运行）
请问：
程序运行出错是什么原因，如何解决？为什么必填字段负值为空时程序也能正常运行，这和字段数据类型有什么关系？
谢谢！