Consulta de Multiples Valores

Por favor un alama caritativa que me ayude a resolver este problemilla,,
por
mas que intento no me funciona,

el siguiente codigo recoge los valores de un list/box multiple llamado
selItems, hasta aqui no tengo problema lo hace correctamente,,

<%

Dim strSelectedItems ' String returned from QS (or Form)
Dim arrSelectedItems ' Variable to hold team array
Dim I ' Looping variable

strSelectedItems = Request.Form("selItems")
arrSelectedItems = Split(strSelectedItems, ", ", -1, 1)

%>
<%
For I = LBound(arrSelectedItems) To UBound(arrSelectedItems) %>
'<%= arrSelectedItems(I) %><BR>

<%
Next 'I
%>

Ahora como puedo hacer para que estos valores sean el filtro para una base
de tados de access, tengo lo siguiente pero no me funciona,, si selecciono
solo un Item si me da la consulta pero si selecciono varios Items ya no me
devuelve nada

"SELECT Homologacion, Precio1, Moda1, Precio_2, Moda_2 FROM qryModas_OvD
WHERE Homologacion IN ('" + Replace(compDM__MMColParam, "'", "''") + "')
ORDER BY Ordenacion ASC"

POR FAVOR UN ALMA CARITATIVA QUE ME AYUDE,, POR FAVOR¡¡¡