主题：该字符串未被识别为有效的DateTime

Dim sbxh As WinForm.ComboBox = e.Form.Controls("设备型号")

Dim sbxlh As WinForm.TextBox = e.Form.Controls("设备序列号")

Dim StartDate As Date = = #1/1/1900#

If e.Form.Controls("起始日期").Value <> Nothing

    StartDate = e.Form.Controls("起始日期").Value

End If

Dim EndDate As Date = #12/30/2099#

If e.Form.Controls("截止日期").Value <> Nothing

    EndDate = e.Form.Controls("截止日期").Value

End If

Tables("安装").Filter = "设备型号 Like '*" & sbxh.Text & "*' And 设备序列号 Like '*" & sbxlh.Text & "*' And 装机时间 >= #" & StartDate & "# And 装机时间 <= #" & EndDate & "# "