set usuariosDB = server.CreateObject("ADODB.CONNECTION")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../dados/almanaque.mdb")
usuariosDB.Open ConStr
note que eu criei uma variavel para informar o driver especifico e o endereço onde esta o bco de dados.
o seu esta apenas assim:
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn
tente fazer algo similar para o seu