products.Source = "SELECT ID, Price, ProductFamily, CustomText08, ManufacturerPartNumber, Description, Sort, CustomMemo02 FROM Products WHERE (products.CustomText08 <>'Yes') AND ProductFamily = " + Replace(products__MMColParam, "'", "''") + " ORDER BY Sort ASC"
with the above recordset...