<%
Set Bag = Server.CreateObject("ADODB.Connection")
Bag.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/veri.mdb")
set rs = server.createobject("adodb.recordset")
%>

Veritabanınız dosyalarınızın bulunduğu kısımda ise "/veri.mdb" olan kısımdaki / işaretini siliniz. çıkacak kod aşağıdaki gibidir.

Bir klasör geride arama yapıyor..

<%
Set Bag = Server.CreateObject("ADODB.Connection")
Bag.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("veri.mdb")
set rs = server.createobject("adodb.recordset")
%>