Visual Basic - Accesar una Bd access desde Vusal Basic

Buenos dias.
Resulta que para accesar una base de datos access yo utilizo el siguiente codigo en un modulo.

Public Cnn As ADODB.Connection
Public sbase As String
Public Permiso As String

Public Sub AbrirConexion()
If Len(App.Path) < 4 Then 'Devuelve la cantidad de caracteres que tiene la ruta'
sbase = App.Path & "Datos\Datos.mdb"
Else
sbase = App.Path & "\Datos\Datos.mdb"
End If
Set Cnn = New ADODB.Connection
With Cnn
.CursorLocation = adUseClient
.CommandTimeout = 120 'Tiempo que se demora en conectar a la base de datos'
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=" & sbase
End With
End Sub


Pero resulta que la base de datos es protegida con una contraseña y cuando ejecuto la aplicacion me dice que la contraseña no es valida.
mi pregunta es en que parte del codigo del modulo debo colocar la contraseña y cual seria la sintaxis de la misma.

Yo normalmente utilizo un odbc y en el archivo odbc escribo la contraseña, no se si esto te podria ayudar?