[5000]

جرب هذا التعديل
if DateTimePicker1.CustomFormat = " " then
dt.Rows(pos).Item(7) = DBNull.Value
else
dt.Rows(pos).Item(7) = DateTimePicker1.Value.date
end if