主题：[原创]语法错误 (操作符丢失)

主控窗口_Button1_Click

Dim d1 As Date=e.Form.Controls("DateTimePicker1").Value

Dim d2 As Date=e.Form.Controls("DateTimePicker3").Value

If d1 = Nothing Or d2=Nothing Then

MessageBox.Show("起始或结束日期都不能为空!","友情提醒",MessageBoxButtons.OK,MessageBoxIcon.Warning)

Else

    With DataTables("订单")

        .LoadFilter ="日期>=#"& d1 &"# and 日期<=#" & d2 & "#"

        .Load()

     End With

 End If

------------------------

请教是哪儿有问题。

谢谢！