Visual Basic - Ayuda con codigo para ubicar una bd con contraseña

necesito ubicar una base de datos que tiene una contraseña que es( pin) puse un comandialog para definir la ruta en una variable de un modulo pero no se como declarar la contraseña para que el ado se conecte, pongo el codigo aqui

'Este esta en el Form y trabaja hasta aqui bien
CommonDialog1.ShowOpen
Rutabd = CommonDialog1.FileName

'Aqui no se como poner para que valide la contraseña (Pin)

'Este es el Ado pero no se conecta

With Adodc1

.ConnectionString = Rutabd
.ConnectionTimeout = 10
.Password = DANY
'No sirve si la base está en uso
.Open
End With

Con esto puedes abrir la conexion a la base datos de ACCESS con ADODC...
Cambia el Provider a "Microsoft.Jet.OLEDB.3.51" para Access 97 ...

'.......

Dim cString As String

cString = "Provider=Microsoft.Jet.OLEDB.4.0" & _
";Data Source=" & Rutabd & _
";Persist Security Info=False" & _
";Jet OLEDB:Database Password=semper"

Me.Adodc1.ConnectionString = cString
Me.Adodc1.CommandType = adCmdText
Me.Adodc1.RecordSource = "SELECT * FROM Tabla1"
Me.Adodc1.Refresh

'..........