Private Sub FindRepairDate_AfterUpdate()
    Dim SQLText
    Dim FilterText
    Dim OrderText
    SQLText = "Select * From OrderQ Where RepairDate = " & Chr(34)
    FilterText = [FindRepairDate] & Chr(34)
    OrderText = "Order By RepairDate;"
    Screen.ActiveForm.RecordSource = SQLText & FilterText & OrderText
End Sub

โค๊ดดังกล่าวไม่สามารถค้นหาข้อมูลประเภทวันที่ได้ ขึ้น Error ที่บรรทัดสุดท้าย   (แต่ถ้าเป็นข้อมูลประเภท Text จะไม่มีปัญหา)