bilmiyorum ne derece etkili olur ama sanal yol yerine reel yol kullan yani

db_dizin = "C:\Inetpub\vhosts\domain.com\httpdocs\dbklaso run"
root_dizin = "C:\Inetpub\vhosts\domain.com\httpdocs\"

set BAGLAN=Server.CreateObject("ADODB.Connection")
BAGLAN.Provider="Microsoft.Jet.OLEDB.4.0"
BAGLAN.Open ""&db_dizin&"\"&veri_tabani&".mdb"

aklıma birtek bu geldi başka bir sey gelmedi cunku kodlarin saglam