Ver originalSet rscantprove = myconn2.Execute("SELECT COUNT (DISTINCT codigo_proveedor) as cuenta FROM tb1") While Not rscantprove.EOF n = rscantprove!cuenta rscantprove.MoveNext Wend