Salut,
Extrait de ce que tu peux trouver à cette adresse :
[ Lien ]Pour te connecter à une base protégée par pasword :
Sub ADOOpenDBPasswordDatabase()
Dim cnn As New ADODB.connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=.\Comptoir.mdb;" & _
"Jet OLEDB:Database Password=password;"
cnn.Close
End Sub
--------------------------------------------------------
Dresseur de puces, .... normal pour un loup

!?