使用VBA根据Access中的日期组合框从表创建搜索表单

Question

想知道是否有人可以帮助我使用我的代码，使表中的“到期日”搜索不断出现错误，但我的文本搜索在部门和制造商方面运行良好。 Date_Due为日期/时间格式，标准表达式中的错误为3464数据类型不匹配。

Private Sub Date_Due_Search_AfterUpdate()

Dim Date_Duelist As String
Date_Duelist = "Select * from Equipment_List where ([Date_Due] = '" & Me.Date_Due_Search & "')"
Me.Equipment_List_subform.Form.RecordSource = Date_Duelist
Me.Equipment_List_subform.Form.Requery

End Sub