往数据库中添加新记录，如果某些字段的值为空该怎么办？

Question

通过ado和text往数据库中添加记录，
    Dim rs As ADODB.Recordset
   txtsql = "select * from " & datayear & ""
  Set rs = ExecuteSQL(txtsql)
  rs.AddNew
  rs.Fields(0) = Trim(cbostation.Text)
  rs.Fields(1) = txtyear.Text
  
 rs.Fields(2) = cbomonth.Text
 rs.Fields(3) = cboday.Text
 rs.Fields(4) = txtpresure.Text
 rs.Fields(5) = txtmaxtemp.Text
 
  当text的值为空时，程序出错，数据库表的字段的“必填字段”属性已经为“否”，怎样解决这一问题？
  多谢了！

Answer 1

rs.Fields(5) = IIf(IsNull(txtmaxtemp.Text),"  ", txtmaxtemp.Text)

Answer 2

IIf(IsNull(txtmaxtemp.Text),"  ", txtmaxtemp.Text)这句 高

Answer 3

按照IIf(IsNull(txtmaxtemp.Text),"  ", txtmaxtemp.Text)的方法改了一下，对于数据类型为“文本“的字段可以通过，但是数据类型为“数字”的字段，系统提示“类型不匹配”，这是是么原因？

Answer 4

如果为数字的你就：
IIf(IsNull(txtmaxtemp.Text),val(""), val(trim(txtmaxtemp.Text)))

Answer 5

按照IIf(IsNull(txtmaxtemp.Text),val(""), val(trim(txtmaxtemp.Text)))
为空的值在数据库中都以“0”出现，这就可能无法为值为0的记录区别开，大家在探讨探讨，是不是需要将数据类型为“数字”的字段改成“文本“，可是如果改成“文本“会不会又有其他问题呢？