Visual Basic - Contraseña en base de datos

Hola a todos tengo una duda ¿como hago para ponerle una contraseña a mi base de datos hecha en access 2000 y luego abrirla desde mi sistema con conexion ado? lo hice de esta manera pero me sale un error en el renglon con ***** que la contraseña no es válida, les agradezco su ayuda de antemano

Dim WithEvents rst As Recordset
Dim WithEvents cnn As Connection

Sub Conexion()
Set rst = New Recordset
Set cnn = New Connection
Dim strCn As String
****cnn.Open "dsn=estudio"
cnn.CursorLocation = adUseServer

strCn = "Provider =Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= c:\Sistema\base.mdb;user ID =admin;Password=euge"

End Sub

Pero... estás abriendo la conexion antes de asignarle la cadena?

Si, en realidad es la primera vez que utilizo esto de la contraseña pero quizas no se bien como ponerle la contraseña a access y luego abrirla es lo que tendria que haber preguntado antes de ver como abrirla porq me confunde, si me puedes ayudar....Gracias