vb求救

运行下面老是报“ 无效使用null”，之前同样语句可以运行啊，不知跟数据库有没关系

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='E:\joyfullex\data\joyfullex.mdb'"
  cnn.Open
  sc = MsgBox("确实要添加这条记录吗?", vbOKCancel, "提示信息")
  If sc = 1 Then
    strSql = "select * from 佳丰运货单"
    rs.Open strSql, cnn, 3, 3
    rs.AddNew
       rs("HYId") = Text25.Value
       rs("DeCompany") = Text5.Value
       rs("RecCompany") = Text12.Value
       rs("Number") = Text10.Value
       rs("Weight") = Text14.Value
       rs("Price") = CCur(Text16.Value)
       rs("DePrice") = CCur(Text18.Value)
       rs("UnloadPrice") = CCur(Text20.Value)
       rs("TotalFare") = CCur(Text22.Value)
       rs("Date") = CDate(Text7.Value)       rs.Update
       rs.Close
       cnn.Close
    MsgBox ("插入数据成功！")
  End If
    Text25.Value = ""
    Text7.Value = ""
    Text5.Value = ""
    Text12.Value = ""
    Text10.Value = ""
    Text14.Value = ""
    Text16.Value = ""
    Text18.Value = ""
    Text20.Value = ""
    Text22.Value = ""

End Sub http://download.csdn.net/detail/veron_04/3827200 两点:
1: 数据库是否有不许为空的字段
2: 每个text是否都有内容

如果(1)数据库有不许为空的字段,而对应的text为空,那么就出错了.
你要做得就是提醒用户该text不许留空你好，是这样的，我数据库设置允许空字段，text确实也是空。我的目的是允许空字段插入数据库 CCur()这个函数里的内容不允许空，不是字段允许空的缘故。所以，你要先判断text里面是否空，如果是空，就是接用Null或者0比如：
if Text16.Value="" then
    rs("Price") = 0
else
    rs("Price") =CCur(Text16.Value)
end if

补充：VB ,  基础类