The first part I changed to this as it only works with 5 ,,,,,
Then I get a compile error - Method or data member not found in the 2nd part of the code on the from open event and highlights the Me.Rowsource
Me.RowSource = Replace(Me.RowSource, ";", "") & " Where " & strCriteria