Visual Basic - RE:Necesito abrir la base con contraseña desde vis

Nada mas tendrias que conectarte a nivel codigo no en diseño, te pongo un ejemplo:
Private Sub Form_Load()
On Error GoTo Errores
Dim Ruta As String
Ruta = App.Path & "\BaseDatos.mdb"
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ruta & ";Jet OLEDB:Database Password=12345"
.RecordSource = "Select * From Tabla1"
.Refresh
End With
Text1.DataField = "DNI"
Text2.DataField = "NOMBRE"
Errores:
If Err.Number <> 0 Then
MsgBox "Error ocasionado por: " + Chr(13) + Err.Description, vbCritical, "mIgUeL aNgEl"
Err.Clear
End If
End Sub
Nota: En los textbox's es recomendable que en tiempo de diseño asignes la propiedad DataSource = Adodc1