como abrir una bd de access con contraseña DAO en VB6

[fmartinv]

La pregunta es la del enuciado,Se da por supuesto que yo se la contraseña, lo unico que quiero es evitar que alguien (que no sepa la contraseña) la pueda abrir con access

Creo que es el parametro "Conexion", del metodo "opendatabase".pero no me sale.

[José Jimenez]

es muy sencillo, si trabajas con Objetos Data en la propiedad Connect colocas
;pwd=clave

y en codigo es
contraseña = ";pwd=clave"
set bd = opendatabase(Ruta,,,False,clave)

[fmartinv]

es muy sencillo, si trabajas con Objetos Data en la propiedad Connect colocas
;pwd=clave

y en codigo es
contraseña = ";pwd=clave"
set bd = opendatabase(Ruta,,False,contraseña)

=========================================
A ver antetodo darte las gracias por tu respuesta pero sigue sin funcionarme aqui te envio 4 líneas de código a ver si tu ves el fallo

Private Sub Command1_Click()
Dim Rs As Recordset
Dim CONTRA As Variant
Dim DB As Database

DB.Connect = "PEPE"
CONTRA = ";pwd=PEPE"
Set DB = OpenDatabase("I:\HIST.MDB", , False, CONTRA)
Set Rs = DB.OpenRecordset("Select * from Pacients", dbOpenDynaset, dbSeeChanges)
End Sub



Gracias Por anticipado