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.

[Avellaneda]

Hola, mira puedes abrir la conexión así:

Código:

CN = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
      App.Path & "\BBDD\midb.mdb;Jet OLEDB:Database Password=clave"

Un saludo

[edrec]

Gracias Avellaneda.
Me ha servido lo que me has escrito, pero el problema lo tengo aquí:

Private Sub Form_Load()
Dim sql As String
Call Conectar
sql = "select*from empleado"
rsempleado.Open sql, Cn, adOpenDynamic, adLockOptimistic
End Sub

Me sale el siguiente mensaje:
Error '3709' en tiempo de ejecución:
No se puede utilizar la conexión para realizar esta operación.Está cerrada o no es válida en este contexto.

[Avellaneda]

Perdona, no lo puse bien, es así:

Código:

cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
      App.Path & "\BBDD\midb.mdb;Jet OLEDB:Database Password=clave"

[edrec]

Perfecto, muchas gracias.
Podeis cerrar el hilo.