Underneath is the SQL code I use to retrive data stored in SQL. I am trying to covert it into VB codes. It works when I do the COUNT only, but it won't let me do the DISTINCTCOUNT. Can anyone help me with this code to do the distinct count. Thanks in advance.

SELECT * FROM QMIdouble WHERE edmemb IN (SELECT edmemb FROM
QMIdouble Group by edmemb Having Count(DISTINCT(pmfdid + '-'+ pmfdsf)) > 1)