当我向字段中写入空值时，总报“多步操作产生错误，请检查每一步的状态值”

Question

语句如下：
If Text4.text <> "" Then
        rs.Fields("spsj") = Text4.text
Else
    rs.Fields("spsj") = ""
End If
我发现这种情况就是产生于当字段是日期型时，就会报这种错误。这要怎么处理呀？

Answer 1

If Text4.text <> "" Then
        rs.Fields("spsj") = cdat(Text4.text)
Else
    rs.Fields("spsj") = null
End If

Answer 2

If Text4.text <> "" Then
    rs.Fields("spsj") = Cdate(Text4.text)
Else
    rs.Fields("spsj") = null
End If