automation error

[tom taol]

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 OLEDBatabase Password=q;"
cnn.Close
End Sub

 

[Dave Patrick]

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

:
|
| 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 OLEDBatabase Password=q;"
| cnn.Close
| End Sub
|
|

 

[tom taol]

it is not.
the problem is the password setting.
the password is right, namely "q"

 

[NickHK]

tom,
I think you're wrong about the "\", but..
An easy way to create/test connection strings is to create a blank file
called Whatever.udl.
Double click and follow the wizard.
Then open the file in a text editor and see your connection string.

NickHK

 

[Dave Patrick]

"it is not."

Not what?

--

Regards,

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

:
| it is not.
| the problem is the password setting.
| the password is right, namely "q"