Bağlantıyı şu şekilde kurun;

Alıntı
Set Baglanti = Server.CreateObject("ADODB.Connection" )
Baglanti.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../data/ablokdb.mdb" ))

Sorgu için;

Alıntı
SQL = "SELECT * FROM [TABLO İSMİ] order by id desc"
Set RS = Baglanti.Execute(SQL)
Fonksiyonunuzu aynı şekilde yazıp çalıştırabilirsiniz.

Alıntı
Do While not Rs.Eof


'Çekilecek veriyi ve işlemleri burda yapın.


Rs.Movenext
Loop
Baglantıyı kapatalım;

Alıntı
Rs.Close
Set Rs = Nothing
Baglanti.Close
Set Baglanti = Nothing

Sanırım bu şekilde işinizi görecektir.