Hola ....puede ser por esto por lo que no te funcione? ,mira la diferencia y ya diras....((a ver si he estudiado bien ...
esto es para una conexion SIN DNS ))
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("librovisitas.mdb")
Tú dices ........
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("librovisitas.mdb"))