prueba con
Dim oConn
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&server.mappath("/directoriobd/infor.mdb")&";"
y una sugerencia:pásate a OLEDB
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("/directoriobd/infor.mdb")&";"
si alguna de estas no funcinoa, comprueba los permisos efectivos de windows para el usuario IUSR_maquina en ese fichero.
PD: Por cierto, no es DNS (Domain name system), sino DSN(data source name)
