Dim query = From o In lista, o2 In lista Where o.ID = o2.ID And o.Email = o2.Email And o.CreditCard <> o2.CreditCard Select o.ID, o.Email, o.CreditCard Distinct