如何排除NULL值(編號：1906)

VB6.0 本人之DB內載有一些不可以是NULL 值的數值(或字串)，故希望在UPDATE以先排除
dim ready as boolean
ready= true
If Null =Text2.Text (或RichTextBox1.text)
ready=false
End If
If ready= ture then
TestDB.recordset.fields("abc")= Text2.Text
end if
可是她還是會在第二部份罵我，我可以怎樣呢，可以set 一個defalut的value嗎?
謝謝您閱讀此留言，並藉機向幫助過我的高手言謝~~ ^_^