VBA 3075中的运行时错误

Question

我正在尝试在Access中创建一个搜索表单，其中人们可以按日期范围搜索记录。但每次单击搜索时，我都会收到运行时错误3075 ... DoCmd.ApplyFilter任务突出显示。我是VBA的新手。

Private Sub Command62_Click()
    ' Search Button
    Call Search
End Sub

Sub Search()

    Dim strCriteria, task As String

    Me.Refresh
    If IsNull(Me.txtDateIntakeAssignedFrom) Or IsNull(Me.txtDateIntakeAssignedTo) Then
        MsgBox "Please enter the date range", vbInformation, "Date Range Required"
        Me.txtDateIntakeAssignedFrom.SetFocus
    Else
        strCriteria = "([Date_Staff_Assigned]) >= #" & Me.txtDateIntakeAssignedFrom & "# And [Date_Staff_Assigned] <= #" & Me.txtDateIntakeAssignedTo & "#)"
        task = "select * from frmCustomizeSearchDataonDatasheet where (" & strCriteria & ") order by [Date_Staff_Assigned]"
        DoCmd.ApplyFilter task
    End If

End Sub