Tu problema es que no estas haciendo una ruta fisica de la base de datos:
Mira cambia este codigo:
conexion.Open "BaseDeDatos"
Por este otro:
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("Base de datos")
Espero que te sirva
