Buenas,
Prueba a cambiar la linea a ver si es esto...
ConnSTR = "DRIVER={Driver do Microsoft Access (*.mdb)};DSN=bdallmirall130103;"
MiConexion.Open ConnSTR
Si el DSN esta creado correctamente y tienes los permisos correctos para acceder en la carpeta de la BD ya está.
Suerte