no contar los duplicados de una tabla

[ARGFA]

Código vb:

Set rscantprove = myconn2.Execute("SELECT COUNT  (DISTINCT(codigo_proveedor)) AS cuenta FROM tb1")
    Print rscantprove!cuenta
 

asi lo tengo pero me dice q la fucion 'distinct' no esta definda en la expresion.

si le quito el distinct y le dejo el count, me funciona sin problemas pero contando todos los registros.