Visual Basic - abrir base de datos Access con clave

Hola..
En este codigo donde coloco las instrucciones para que me abra una base de datos access con clave. La base de datos se llama desmo.mdb y la clave es 12345

Public Sub Open_Database()

Sfilename1 = App.Path
Sfilename2 = "desmo.mdb"

Sfilename = Sfilename1 & Sfilename2
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& " Data Source= " & Sfilename & ";Persist Security Info=False"

cnn.Open

End Sub

Gracias por su ayuda..!!

Nic

Las variable no son necesarias, ponlo así:

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\desmo.mdb;Jet OLEDB:Database Password=12345"

Hola Pele..
com andas..!!
Gracias viejo.. por tu ayuda... Lo logre... viejo.. gracias...
Lo veo seguido por aqui... ahh?? eso esta bien...
FELIZ NAVIDAD..

Nic