aidez moi s'ils vous plait

 SALUT les amis :
J'essay d'ouvrir la connection a une base de donneés Access a qui j'ai determiner un mot de passe mais la connection ne passe pas tjs
j'ai essayé avec ses methodes mais je n'araive pas tjrs a resodre le probleme si vous avez une solution je serai hépère content de l'avoir et merci :)

sub connection ()
dim CON As New ADODB.Connection
      passe = "a"
      util = "Admin"
CON.Open "Provider=Microsoft.Jet.OLEDB.4.0 ; " & _
" Data Source = " & App.Path & "\GESTION ADMINISTRATIF.mdb ;" & _
" Jet OLEDB:Database UserId =" & util & " ; Password =" & passe & " ;"
end sub
 
2° methode

 sub connection ()
dim CON As New ADODB.Connection
CON.Provider = "Microsoft.Jet.OLEDB.4.0;"
   passe = "a"
   util = "Admin"
  CON.Properties("Jet OLEDB:System database") = _
     "C:\Program Files\Microsoft Office\Office\SYSTEM.MDW"
CON.Open "Data Source=" & App.Path & "\GESTION ADMINISTRATIF.mdb;UserId: =" & util & ";Password: =" & passe & ";"
end sub

SALUT WAPE 
Merci mille fois pour ta proposition ça marche.
je suis hépère content .
merci boucoups pour votre aide .
a une de ses fois .        


et_talebh