[AccessD] Can't Set Filter

Dear List:

Can anyone see why the following code should generate the error 2448 - you can't assign a value to this object in the line Me.Filter = strFilter?

Private Sub SetFilter()

Dim strFilter As String

    strFilter = ""
    If IsDate(txtDateFilterStart) Then
        strFilter = strFilter & "fldPMScheduleStartDate >= #" & txtDateFilterStart & "#"
    End If
    
    If IsDate(txtDateFilterEnd) Then
        If strFilter <> "" Then strFilter = strFilter & " AND "
        strFilter = strFilter & "fldPMScheduleEndDate =< #" & txtDateFilterEnd & "#"
    End If
    
    If strFilter = "" Then
        Me.Filter = ""
        Me.FilterOn = False
    Else
        Me.Filter = strFilter
        Me.FilterOn = True
    End If
    
    Me.Requery
    
End Sub


MTIA,

Rocky