为什么订单查询 没有结果，表里面应该有2条记录符合要求呀？

很诡异.只好使用下列方法替换:

Private Sub 订单查询_Click()
    Dim Sql
    If [开始时间] > [结束时间] Then
        MsgBox "结束时间必须大于开始时间！"
        DoCmd.GoToControl "开始时间"
    Else
        Sql = "SELECT 订单.订单ID, 订单明细.产品ID, 订单.订购日期, 订单.到货日期, 订单.客户ID " & _
              "FROM 订单 INNER JOIN 订单明细 ON 订单.订单ID = 订单明细.订单ID " & _
              "WHERE (((订单.订购日期) Between #" & [开始时间] & "# And #" & [结束时间] & "#)) " & _
              "ORDER BY 订单明细.产品ID"
        CurrentDb.QueryDefs("客户订单").Sql = Sql
        DoCmd.OpenQuery "客户订单"
        Me.Visible = fakse
    End If
End Sub