Tools|References and check the box for 'Microsoft ActiveX Data Objects 2.x
Library'

Try a \ instead of /

Try http://www.connectionstrings.com/

--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

"tom taol" wrote:
|
| 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 ***