Visual Basic - Password en ADO

como hago para pasar el password o contraseña de la base de datos en access al abrir la base de datos desde el programa en visual basic.
estoy utilizando ADO, que no es lo mismo que DAO.

Gracias.

Dim Cn As New ADODB.Connection
Dim strCn As String
strCn = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=nwind.MDB;" & _
"Jet OLEDB:System database=c:\winnt\system32\System.MDW"
Cn.Open ConnectionString:=strCn, _
UserID:="Admin", Password:="ambsoftware"

Ejemplo extraido de www.ambsoftware.com

Una manera mas facil es la siguiente:
dim objADOConnection as New ADODB.Connection

with objADOConnection
.Provider = "MICROSOFT.JET.OLEDB.4.0"
.Properties("Jet OLEDB:Database Password") = "miclave"
.ConnectionString = "Data Source=mibasedatos.mdb;User ID=admin"
end with

El usuario puede ser opcional

Yo la uso siempre y no me falla