RecordCount e distinct

Boa tardePreciso fazer um distinct e que apresente também a qtd de ocorrência desse regustro.Ex: Carregar a lista de usuários e ao lado trazer a qtd que cada usuário aparece na tabela. A parte do dstinct eu fiz mas a qtd só carrega -1 em todos os registros.usei:

<%= rstCliente("supervisor")%>

<% response.write rstCliente.recordcount%>
ObrigadoGilson

Após alterar para

sSQL = "SELECT DISTINCT supervisor from tb_falhas_operacionais"
SQL = sSQL
Set rstCliente = Server.CreateObject("ADODB.Recordset")
rstCliente.Open SQL, conexao_ligacoes,3 ,3
traz resultado 38 e não mais o -1