Here is the code I'm using when the filter button is clicked:
Private Sub btnFilter_Click()
Dim strFilterSearch As String
strFilterSearch = Me!txtSearchFilter
Me![Orders Subform].Form!ProductID.RowSource = "SELECT ProductName,ProductID,Discontinued FROM Products WHERE InStr(1, [ProductName],'"...