Apply filter to a form

[Widemonk]

OK, following on from my other post about form filters, this is my code
however ALL records are filtered.

Private Sub cmdMyFilter_Click()

'Save any edits first.
If Me.Dirty Then Me.Dirty = False

'Show all records if no search criteria specified
If IsNull(txtSearch) Then
Me.FilterOn = False
Exit Sub
End If

Me.Filter = "[txtName] Like '*" & txtSearch & "*'"
Me.FilterOn = True

End Sub