Ouvrir une base Access protégée par mot de passe

Mon application utilise une base de donnée Access qui est protégée par un mot de passe.

Mais je n'arrive pas à ouvrir la base.
voici mon code:


Set db = OpenDatabase("C:\Documents and Settings\Julien\Bureau\PARTAGE JULIEN\julien\personal.mdb", False, False, mot de passe)

cela genere une erreur:"mot de passe non valide"


si je fais opendatabase("..."mot de passe")

cela genere une erreur:"pilote isam introuvable"


si vous avez une idée faite moi signe

merci

Essaie
Set DB = DBENgine.OpenDatabase("C:\Fich.mdb", False, False, ";PWD=MotDePasse;")



-------------------------------
Réponse au message :
-------------------------------

Mon application utilise une base de donnée Access qui est protégée par un mot de passe.

Mais je n'arrive pas à ouvrir la base.
voici mon code:


Set db = OpenDatabase("C:\Documents and Settings\Julien\Bureau\PARTAGE JULIEN\julien\personal.mdb", False, False, mot de passe)

cela genere une erreur:"mot de passe non valide"


si je fais opendatabase("..."mot de passe")

cela genere une erreur:"pilote isam introuvable"


si vous avez une idée faite moi signe

merci

Bonjour,
je rencontre le meme pb, mais je n ai pas reussi avec les sources disponibles sur le site. Je souhaites ouvrir une base de donnée qui a un mot de passe a travers une ligne de code.

Quel est ce code ?????


Gerald .... hé hé ....


-------------------------------
Réponse au message :
-------------------------------

Essaie
Set DB = DBENgine.OpenDatabase("C:\Fich.mdb", False, False, ";PWD=MotDePasse;")



-------------------------------
Réponse au message :
-------------------------------

Mon application utilise une base de donnée Access qui est protégée par un mot de passe.

Mais je n'arrive pas à ouvrir la base.
voici mon code:


Set db = OpenDatabase("C:\Documents and Settings\Julien\Bureau\PARTAGE JULIEN\julien\personal.mdb", False, False, mot de passe)

cela genere une erreur:"mot de passe non valide"


si je fais opendatabase("..."mot de passe")

cela genere une erreur:"pilote isam introuvable"


si vous avez une idée faite moi signe

merci

Set DB = DBENgine.OpenDatabase("C:\Fich.mdb", False, False, ";PWD=MotDePasse;")

merci c'est exactement ce que je cherchais ! 

MiDaX


MERCI BCP