this code do not work.
please...

Sub ADOOpenDBPasswordDatabase()

Dim cnn As New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "/db3.mdb;" & _
"Jet OLEDB:Database Password=q;"
cnn.Close
End Sub

*** Sent via Developersdex http://www.developersdex.com ***