Veritabanının tam yolunu yazarak ulaşabilirsin.
"Provider=Microrosft.Jet.Oledb.4.0; Data Source=C:\Inetpub\wwwroot\site\db\veritabani.mdb"
gibi..
Eskisi :
Veri_yolu = Server.MapPath("db/database.mdb")
Bcumle = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu
bunu şununla değiştirdim 500 Internal Server Error diyor

:
"Provider=Microrosft.Jet.Oledb.4.0; Data Source=C:\Inetpub\vhosts\siteadresi\httpdocs\db\da tabase.mdb"