解决日期型字段不能空值更新问题的问题

为解决日期型字段不能空值更新问题，在窗体添加一个DTPicker1控件（DTPicker1.Visible=False）和一个Text1控件，DTPicker1与数据库的日期型字段绑定，text1不与字段，但与DTPicker1连接，要通过text1向DTPicker1输入日期，并用text1显示DTPicker1中值，代码如下：

Private Sub Text2_KeyPress(KeyAscii As Integer) '向DTPicker1和数据库输入日期
On Error GoTo err1:
If KeyAscii = 13 Then
If IsDate(Text2) = True Then
DTPicker1.Value = Text2
Else
If Text2 = "" Then
DTPicker1.Value = Null
Else
MsgBox "日期输入错误！", 16
End If
End If
End If
Exit Sub
err1:
MsgBox "日期输入错误！", 16
End Sub

Private Sub DTPicker1_Change() '显示DTPicker1绑定数据库的日期
If DTPicker1.Value = Null Then
Text2.Text = ""
GoTo 5
End If
Text2.Text = DTPicker1.Value
5 End Sub

上述代码，上一段输入没有问题，但下一段显示出现错误，什么原因？请指教！！！