[اسامه الهرماوي]

وعليكم السلام...
تفضل:

كود :

 If CheckBox1.Checked = False Then
           .Parameters.AddWithValue("@التاريخ", SqlDbType.NVarChar).Value = DBNull.Value
       Else
           .Parameters.AddWithValue("@التاريخ", SqlDbType.NVarChar).Value = DateTimePicker1.Value.Date
       End If

أو يمكنك وضع كود الحفظ إذا لم تستطع التنفيذ وسيت باذن الله تعديله.