Run SQL query on each item in multiselect listbox and show results in another listbox?
===

I'm running a "select distinct" query on fields selected in a multiselect listbox (the listbox is populated with fields from a table). The code worked fine before I made it multiselect, and now the SQL query is not functioning. For example when I select the fields "Gender" and "INTERFACE" from the field list, the results in the 2nd list box are: 

SELECT DISTINCT
Gender
INTERFACE

Ideally my results would include the field name and then the values, with a line between each field results.

Here is my code:

    Dim strSQL As String
    Dim strCriteria As String
    Dim varItem As Variant

    On Error GoTo Err_Command206_Click

    For Each varItem In Me.ScrubbedList.ItemsSelected
    strCriteria = strCriteria & ",'" & Me!ScrubbedList.ItemData(varItem) & "'" & vbCrLf

    strSQL = "SELECT DISTINCT " & strCriteria & " FROM Scrubbed"

    Me.List316.RowSource = strSQL

    Next varItem

    Exit_Command206_Click:
        Exit Sub
    Err_Command206_Click:
        MsgBox "Please select a field"