No puedo abrir BD Access con contraseña

[edrec]

Hola a todos.
No soy capaz de abrir una BD Access 2000 con contraseña.
Yo tengo esto:

Public Sub BD()
CN.Provider = "MICROSOFT.JET.OLEDB.4.0"
CN.Open App.Path + "\BBDD\midb.MDB"
"Jet OLEDB:Database Password=clave"
End Sub

Me da error de sintaxis.
Dónde está el fallo?. La contraseña es la correcta.
Por favor, explíquemenlo claro porque en esto estoy muy verde.
Un saludo y gracias.