BD Access en VB

Hola. Una consulta. Tengo mi BD en Access con contraseña y en el Connection del DataEnvironment he puesto la contraseña en la última solapa y he probado la conexión y todo OK. Pero el problema está cuando en el load del formulacio principal tengo la siguiente linea de codigo: Set BDBase = OpenDatabase("C:\Ruta...\Base.mdb")
Ruta es igual al path del Connection y BDBase es un objeto de tipo Database.
El error me dice: "Error 3031 en tiempo de ejecución. No es una contraseña Válida"
¿Alguna sugerencia? Gracias
Saludos
Carlos