关于实时异常

关于实时错误
我的VB中有一个数据库，其中有一个字段为date，即日期。我查询时，当date取值为2009-2-30(text1.text)时，报错：
“'-2147217913(80040e07)':从char数据类型到datetime数据类型转换导致datetime值越界。”
我想在这种情况发生时，不显示以上提示，改为“日期取值越界”。
不知代码该怎么写？

[解决办法]

VB code

private sub XXX()on error goto errexit suberr:  msgbox "日期取值越界"end sub
[解决办法]
Dim NewDate As Date
NewDate= CDate(text1.text)
[解决办法]
VB code
private sub text1_lostfocus()    if trim(text1.text)<>"" then        if not isdate(text1.text) then            msgbox "请输入日期型数据!",48,"提示"            text1.text=""            text1.setfocus        else            text1.text=format(text1.text,"YYYY-MM-DD")        end if    end ifend sub
[解决办法]
当date取值为2009-2-30(text1.text)时??
大哥，二月份没有三十呀
[解决办法]
对用户输入先要用 IsDate(Text1.Text) 进行校验。