Veritabanındaki veriyi ondalıklı olarak listeleme

Merhaba arkadaşlar
Access veritabanımda sayı olarak girilmiş değeri tablomda ondalıklı olarak yazdıramıyorum. Örneğin 1000000 değerini 1.000.000 olarak yazmasını istiyorum. Formatnumber ile yapıyorum ama sırala diyince hata veriyor. Yardımlarınızı bekliyorum. Teşekkürler

Function Virgulle(rakamlar)
rakamlar = Cstr(StrReverse(rakamlar))
For i = 1 To Len(rakamlar)
GeciciVeri = Mid(rakamlar,i,1) & GeciciVeri
If i Mod 3 = 0 And Not i = Len(rakamlar) Then GeciciVeri = "," & GeciciVeri
Next
Virgulle = GeciciVeri
End Function

fonksiyonunu kullanarak rahatlıkla yapabilirsin.

kullanımı ise Response.write virgulle(rs("sayi"))

Cevabınız için çok teşekkür ederim. Fakat yapamadım. Aşağıdaki hatayı verdi sizce nerede hata yapmış olabilirim ? Tşk.

Source line: Function Virgulle(rakamlar)
Description: Sözdizimi hatası

tablonda sayi isimli hücren olsun. bu hücrenin veri tipini text olarak kaydet. sayıyı gir. 1.000.000 olarak görünecektir.

kodlarında veriyi cekip bi değişkene bağla ve cint uygula.bu sayede sayı olarak okutmuş olacaksın.
örnek;
sayi=Cint(rs("sayi"))

Function Virgulle(rakamlar)
rakamlar = Cstr(StrReverse(rakamlar))
For i = 1 To Len(rakamlar)
GeciciVeri = Mid(rakamlar,i,1) & GeciciVeri
If i Mod 3 = 0 And Not i = Len(rakamlar) Then GeciciVeri = "," & GeciciVeri
Next
Virgulle = GeciciVeri
End Function

kodunu sayfanın en başına yaz... yoksa fonksiyonlar çalışmaz. nedendir anlamadım ama sayfa ortasına yada sonuna eklenince çalışmıyor. illa en basına eklemeniz gerekiyor.

Bu asp javascript gibi değil yaw işlenen kodların illaki öncelerde çalışması gerekiyo

Yardımlarınız için çok teşekkürler