Conexion a access...

Hola, tengo este codigo que me permite conectarme a una BD de ACCESS

Dim strconn As String
strconn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Directorio &
";"
Dim mconn As New OleDb.OleDbConnection(strconn)
Dim ad As New OleDb.OleDbDataAdapter("Select * from " & tabla, mconn)
mconn.Open()
ad.Fill(ds)
mconn.Close()

La conexion se realiza sin problemas si el archivo MDB no esta protegido
con
password, si le pongo pass me da un error en el que dice que el pass es
incorrecto.
¿Como le agrego a este codigo el pass para que se conecte al MDB?


Daniel.

Para otra duda sobre cadenas de conexion tienes esta magnifica web:
http://www.connectionstrings.com/