I keep getting 'Runtime Error 2448' when I run the code below.  When I debug
it highlights me.Filter=strWhere.  Any suggestions??

Private Sub Filter_Click()
Dim strWhere As String
Dim lngLen As Long

If Not IsNull(Me.TypeFilter) Then
  strWhere = strWhere & "([Type]=""" & Me.TypeFilter & """)And"
End If
If Not IsNull(Me.StatusFilter) Then
  strWhere = strWhere & "([Status]=""" & Me.StatusFilter & """)And"
End If
   lngLen = Len(strWhere) - 5
   If lngLen <= 0 Then
       MsgBox "No criteria", vbInformation, "Nothing to do."
   Else
       strWhere = Left$(strWhere, lngLen)

       Me.Filter = strWhere
       Me.FilterOn = True
       End If
End Sub

Private Sub Form_Open(Cancel As Integer)
'Me.Filter = "(False)"
'Me.FilterOn = True

End Sub

Private Sub RemoveFilter_Click()
   Dim ctl As Control
   
   For Each ctl In Me.Section(acHeader).Controls
       Select Case ctl.ControlType
       Case acTextBox, acComboBox
           ctl.Value = Null
       Case acCheckBox
           ctl.Value = False
       End Select
   Next
   Me.FilterOn = False
End Sub

Private Sub Ticket__Click()
DoCmd.OpenForm "ISTroubleTicket", , ,
"[ISTroubleTicket]![Ticket#]=Forms![TroubleTicket query]![Ticket#]"
End Sub