Visual Basic - Pasword en access

Hola a todos, mi problema es el siguiente:
Tengo un formulario mediante el cual accedo a una base de datos en access97. Quiero poner contraseña a la base de datos pero no se como hacer para que visual basic me abra la base de datos tras ponerle la contraseña, me dice que la contraseña no es correcta.
El codigo que he utilizado es el siguiente:

Set MiBase=OpenDataBase(CurDir() & "rutademibase", True, False, ";" & "PWD=miclave;")

A ver si alguien me puede decir el error. Por cierto, el código lo he escrito en el form_load.
Gracias de antemano

Inténtalo así:
ChDir App.Path
Set MiBase = OpenDatabase("NombreDB", False, False, ";" & "PWD=miclave;")
Si la bd está en el mismo directorio de la app, si no, cambia NombreDB por el directorio completo.
Saludos