If e.Form.Controls("TextBox1").Value= nothing Then
msgbox("不能为空")
e.Form.Controls("TextBox1").select()
return
End If