come non detto...
il problema è qui:
dsn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mio_db.mdb")
scrivi
DBQ=C:\intepub\wwwroot\cartellaDB\mio_db.mdb"
Se non va posta alcune righe prima e alcune righe dopo la riga che inizia con "DSN = ecc."