Abrir una BD de Acces con contraseña en VB6

[wolver09]

Hola buena noche estoy creando una aplicación para mi trabajo, la verdad es que soy principiante (casi novato) jejeje estoy aprendiendo visual basic por medio de la web, bajo ejemplos y analizo su código pero ya me atore les agradecería muchísimo si me pudiesen ayudar tengo en un modulo bas estas declaraciones:

Public Cn As New Connection
Public rsTblAccidentes As New Recordset
Public rsTblDistrito As New Recordset
Public rsTblEmpleado As New Recordset
Public rsTblUsuario As New Recordset
Public rs As New Recordset
Public Rstemp As New Recordset

y en una rutina del mismo modo esto

Public Sub Conectar()
Cn.Provider = "Microsoft.Jet.Oledb.4.0"
Cn.Open (App.Path + "\Mibase.mdb")
End Sub

en un el form Acceso

Private Sub Form_Load()
Dim sql As String
Call Conectar
sql = "select*from TblUsuario"
rsTblUsuario.Open sql, Cn, adOpenDynamic, adLockOptimistic
End Sub

Hasta aquí me funciona todo bien abre la base y valida el usuario y el password en la tabla pero el detalle es cuando le coloque pass a la BD modifique el código del modulo bas quedando así

Public Sub Conectar()
Cn.Provider = "Microsoft.Jet.Oledb.4.0"
Cn.Open (App.Path + "\AUSCN.mdb"), ("Persist Security Info=False"), ("jet Oledb:Database"), ("Password=Mipassword")
End Sub

Me manda error 13 "No coinciden los tipos" en la linea Cn.Open

Por su ayuda e interés de antemano muchas gracias