[MS ACCESS] Jak zastosować filtr na formularzu MS Access z przyciskiem i InputBox?

Private Sub Polecenie74_Click()
On Error GoTo Err_Przycisk74_Click


Dim a As Variant
a = InputBox("Podaj cos", "CO szukasz?")
If a = "" Then
DoCmd.ShowAllRecords

Me.Filter = "ctlcos = " & a 

Me.OrderBy = "[Tab .[nr ]" ' niech posortuje a co tam :)
OrderByOn = True
FilterOn = True

Exit_Przycisk74_Click:
    Exit Sub

Err_Przycisk74_Click:
    MsgBox Error$
    Resume Exit_Przycisk74_Click
End If
End Sub

‘ nie ma komunikaty ze  jest jakiś błąd niby access łyka ten kod ale nic nie jest wykonywane wiec zgłupiałam i spróbowałam tak

Private Sub Polecenie41_Click()
Dim a As Variant
a = InputBox("Podaj cos:", "co szukasz ?")
If a = "" Then
Exit Sub
‘ zrezygnowalam z DoCmd.ShowAllRecords na rzecz exit sub

Me.Filter = "(tab.[cos]) = " & a
‘ bezpośrednio spróbowałam odwołać się do pola w tabeli choć wszędzie każą odwoływać się do formantu
FilterOn = True
End If
End Sub

‘ I też nie działa nie mam pojęcia dlaczego

Private Sub Polecenie74_Click()
a = InputBox("Podaj cos", "CO szukasz?")
If a = "" Then
    DoCmd.ShowAllRecords
Else
    strSQL = BuildCriteria("cos", dbText, a)
    Me.Filter = strSQL
    FilterOn = True
End If

Exit_Przycisk74_Click:
Exit Sub

Err_Przycisk74_Click:
MsgBox Error$
Resume Exit_Przycisk74_Click

End Sub