vb dtpicker清空日期

Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
DTP2.Enabled = False
End If
End Sub
Private Sub cmd_Click()
Set cn = New ADODB.Connection
Set res = New ADODB.Recordset
cn.Open "provider=SQLOLEDB;server=it;database=khgl1;uid=sa;pwd=123456"
res.CursorLocation = adUseClient
res.Open "select * from khgl", cn, adOpenStatic, adLockOptimistic
Set frm_xxxg.MSHFlexGrid1.DataSource = res
On Error Resume Next
res!来电时间 = DTP1.Value
res!去电时间 = DTP2.Value
res!公司名称 = Text1.Text
res!客户区域 = Text2.Text
res.Update
res.Close
MsgBox ("修改成功")
以上是修改代码，修改任意一列都没有问题，当dtpicker存入日期之后，无法清空，dtpikcer由check控制，当dtpicker变成灰色时，不存入日期！

VB清空指定文件夹 VB ACCESS数据库清空 vb 清空网页缓存文件夹 vb中dtpicker控件限制调整年/月 vb问题：清空所有text中内容 请问vb.net中如何实现窗体的清空 问VB高手一个picture清空的问题 如何快速清空vb MSFlexGrid控件中的数据？ VB清空c:\1.txt里的内容 VB中怎样实现点击一个按钮 弹出光驱 和 清空 回收站？