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

[Kruzado]

cn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "\tubase.mdb;Persist Security Info=False;Jet OLEDB:Database Password=tucontraseña"

[wolver09]

Gracias por tu respuesta cruzado lo voy a intentar como me indicas, tengo muchas otras dudas conforme voy realizando mi proyecto me podrias ayudar con la infinidad de dudas que surjan?

Saludos y Excelente día

[wolver09]

Y lo probé de la forma que me indicas, de hecho había hecho algo similar antes pero se interrumpe la ejecución el la linea que esta en rojo.

Este código esta en el form Acceso para validar password y contraseña del usuario

Código:

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

[wolver09]

Iniciado por Kruzado

cn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "\tubase.mdb;Persist Security Info=False;Jet OLEDB:Database Password=tucontraseña"

Después de batallar un poco y gracias a tu ejemplo lo resolví corrigiendo el error de la linea que marco en la respuesta anterior quedando de la siguiente manera en mi modulo bass:

Código:

Cn.Open "Provider= Microsoft.Jet.OLEDB.4.0;" _
& "Data source=" & App.Path _
& "\MIBASE.mdb;Persist security info = False;Jet OLEDB:DATABASE Password=miclave"

Solo cambie lo que esta en azul.

Saludos..