Hola lo que tienes que hacer es lo siguiente
otravariable = rs("micampoenbd")
variable = formatnumber(otravariable,0)
lo que hace esto es sacar un valor de un campo en una base de datos, de la forma 1000000 y lo convierte a la forma, 1.000.000 espero te sirva, si tienes alguna duda sobre esta funcion colocala aqui..
suerte
<img src="http://www.lexus.com/images/nav/nav_i_logo.gif" width="109" height="47" alt="Lexus" border="0">