sql sætning fejlfinding

er der nogen der kan se fejl ved denne:

strsql1 = " SELECT Distinct Main_Name FROM " & _
        " Person" & _
        " WHERE ((((((nummer)= " & nummer & ") and " & _
        " (Pro)=" & Pro& ") and " & _
        " (Brand) = '" & rec.Fields!Brand & " ') and  " & _
        " (Main_name) = 'Thomas') and " & _
        " (Main_name) = 'Søren')"

            Set qms = dbs.CreateQueryDef("", strsql1)
            Set rms = qms.OpenRecordset()

i tilfælde at jeg sletter den sidste linie 'søren' så virker den ok men i tilfælde som her så melder den ingen post og det er ikke rigtigt.... :(  hjælp