Si solo quieres la obtener el número puedes realizar un COUNT con DISTINCT para que no te tome los que son repetidos:
Código vb:
Ver originalSet rscantprove = myconn2.Execute("SELECT COUNT (DISTINCT codigo_proveedor) cuenta FROM tb1")
While Not rscantprove.EOF
n = rscantprove!cuenta
rscantprove.MoveNext
Wend