Visual Basic - Conectar a BBDD

A ver si me podeis decir como puedo conectarme a una Base de datos asccess que tiene contraseña, como puedo ponerle la contraseña

camino = App.Path + "\Propuestas.mdb"
E_Cone = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & app.path + "\BBDD.mdb"
conexion.Open E_Cone

Pero al tener contraseña al hacer esto me da error, os agradeceria mucho que me lo solucionaseis, gracias por adelantado

Os pongo dos formas (mediante ADO)

una:
Dim camino As String, miClave As String
Dim cn As ADODB.Connection

camino = App.Path & "\Propuestas.mdb"
miClave = "LaContraseña"
Set cn = New ADODB.Connection
With cn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; data source=" & camino & ";Persist Security Info=False"
.Properties("Jet OLEDB:Database Password") = miClave
.Open
End With

y otra:
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & camino & _
";Jet OLEDB:Database Password=LaContaseña"