попробуй не создавая системного алиаса конектиться к базе:
'** Строим строку соединения с базой данных ***
dim dsn,conn,rs
dsn = "DBQ=" & Server.Mappath("Dir/MainBase.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
'** Подсоединяемся к базе данных*****
set conn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
conn.open dsn
где Dir - каталог где лежит база (если здесь-же - то ничего)
MainBase - сама база
удачи
