Access DoCmd.ApplyFilter Ms不从我的变量中获取值

Question

我有租用车辆的桌子，我正在尝试制作一个表格，您可以在不到x个月内过滤掉哪些车辆到期。我做的是这个：

Option Compare Database
Private Sub butFilterTruck_Click()
    Dim ED As Date
    Dim AM As Integer
    Dim AD As Date

    AM = txtM.Value
    AD = txtDate.Value

    ED = DateAdd("m", AM, AD)

    DoCmd.ApplyFilter , "[Avtalsslut] < ED"

End Sub

当我点击“过滤器”按钮时，会提示我输入ED的值......为什么会这样？

如果我在访问请求时添加日期，则过滤器有效。 我感谢任何帮助！