[Resolvido]Verificar se existe conteúdo repetido e retornar o valor

Boa tarde!!

Estou com a seguinte dúvida, existe uma tabela Cliente, e uma tabela de cidades, as duas tabelas estão unidas, ou seja, um cliente pode ter várias cidades. Exemplo:
Cidade: A,B,C,D.... Assim sendo supondo que Pedro tenha cadastrado a cidade A 2 vezes, cidade B 2 vezes, cidade C 1 vez.

Eu gostaria que o VBA verificasse, se no registro ao qual atualmente estou( João cidade A, que existe mais de uma cidade igual) e me retornasse se é verdadeiro ou não e o nome desta cidade(neste caso a cidade A).

Estou precisando desta informação pois estou criando pastas sendo Cliente-> cidade e o serviço... como no caso o Cliente possui varios serviços na mesma cidade, ele irá diferenciar de outra forma.

Fico no aguardo de um salvador

Desde já agradeço

Irmão boa tarde, não entendi seu contexto com seu título.
Voce quer que te retorne se alguma coisa é repetido ou te retorne a cidade que que p funcionário está?

Meu Problema está aqui

contarcidade = DCount("Cod_loc", "Consultório", "[Cod_loc]=" & cid And "[Cod_cli]=" & loca)


Está me retornando erro 13... Sendo que loca e cid são valores numéricos, se eu colocar números ele funciona e me retorna o valor desejado

contarcidade = DCount("Cod_loc", "Consultório", "[Cod_loc]= 50 and [Cod_cli]= 3749")

ou caso eu coloque separadamente também esta dando certo:

contarcidade = DCount("Cod_loc", "Consultório", "[Cod_cli]= " & loca)

contarcidade = DCount("Cod_loc", "Consultório", "[Cod_loc]=" & cid)

Ou seja..meu problema está em unir os critérios loca e cid

se alguem puder me ajudar fico agradecido

Consegui resolver por conta..

contarcidade = DCount("Cod_loc", "Consultório", "Cod_cli=" & [loca] & "AND Cod_loc=" & [cid])

fica ai a resolução caso passem por esse "pequeno" problema

Valeu!