主题：日期框[求助]

老师，我的这段查询代码有问题没？十几台电脑其中一台提示：从字符串转换成日期或时间失败。
 
Dim dt As Date = e.Form.Controls("DateTimePicker1").value
If e.Form.Controls("DateTimePicker1").value = Nothing Then
    MessageBox.Show("请输入查询日期!","提示")
    Return
Else
    DataTables("从业人员健康检查表").LoadFilter = "[体检日期] = '" & dt & "' "
    DataTables("从业人员健康检查表").Load()
End If