Salut,
1 ex DAO + 1 ex ADO from Microsoft :
DAO
Sub DAOOpenDBPasswordDatabase()
Dim db As DAO.Database
Set db = DBEngine.OpenDatabase(".\Comptoir.mdb", _
False, False, ";pwd=password")
db.Close
End Sub
ADO
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 !?