Visual Basic - Abriendo access (password) con Ado

Si tuvieran una funcion para abrir base de datos de access con password utilizando codigo de ado......
por favor la que tengo no me abre para nada a la ohra que le coloco el password

Prueba con esto:

Public Sub ConexionBD()
Set Cn = New Connection
Conexion = App.Path & "\Planillas.mdb"
With Cn
.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & Conexion & ";" & _
"Jet OLEDB:Database Password=MiClave"
End With
End Sub