!!?

i have a form that I am trying to filter according to dropdowns.
I coded it so if you press ESC it clears the combo and resets the filter.

After it gives the error, I can hit F5 and it runs fine. its like it is going to fast?

Private Sub SetFilter()
Dim FLT As String
Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is ComboBox Then
If Left(ctl.Name, 2) = "F_" And Not IsNull(ctl.Value) Then
If FLT <> "" Then
FLT = FLT & " AND [" & ctl.Tag & "]='" & ctl.Value & "'"
Else
FLT = "[" & ctl.Tag & "]='" & ctl.Value & "'"
End If
End If
End If
Next

Me.Filter = FLT 'ERRORS HERE <<<<---
Me.FilterOn = True
End Sub

Private Sub F_cbo_Q_Change()
SetFilter
End Sub

Private Sub F_cbo_Q_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then F_cbo_Q.Value = Null: SetFilter
End Sub

Private Sub F_cbo_Stat_Change()
SetFilter
End Sub

Private Sub F_cbo_Stat_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then F_cbo_Stat.Value = Null: SetFilter
End Sub

Private Sub F_cbo_Stat_NotInList(NewData As String, Response As Integer)
Debug.Print NewData
End Sub