Dim Param() as string
Dim varCriteria as variant, intLoop as integer
varCriteria = NULL
Param = Split([Forms]![yourForm].txtParameters)
for intLoop = lbound(Param) to ubound(Param)
varCriteria = (varCriteria + " OR ") & "([yourField] = " & Param(intLoop) & ")"
Next
currentdb.querydefs("yourQuery").SQL = "SELECT * FROM yourTable " & (" WHERE " + varCriteria)
When you put a wild card in front of an argument ... Access will *not* be able to use an Index on that column - if one exists.
Of course, this may or may not be a big deal in your case ... depending on the number of records.
So ..
Like "abc" & "*" is OK
Like "*" & "abc" & "*" is not ok in this regard ... ie this is a Non Sargable expression.