Coonect to access with password

[kalle]

Hi.

I use this code to connect to my database at work.

Set con = New ADODB.Connection
con.Provider = "Microsoft.Jet.OLEDB.4.0"
con.Open ThisWorkbook.Path & "\my.mdb"

Now I want to protect the database with a password. But it does't work.
Can anyone help me?

Thanks in advance

 

[Tim Williams]

dim cs as string
Set con = New ADODB.Connection

cs = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
ThisWorkbook.Path & "\mydb.mdb;" & _
"Jet OLEDBatabase Password=YourPasswordGoesHere;"

con.Open cs

http://www.connectionstrings.com/access

Tim

 

[kalle]

Thanks for the reply!

It works fine. Thought I tried this before but i must have done
something wrong then.

If someone have time to help me i have one more question.

I have my db-file on a network and i want to put my database in a folder
there noone else but me has writing rights.

Of course I want other users to be able ot connect to my database, but
how do i do that?

Is it possible at all?

I have heard somthing about a mdw-file but how do I create such file?

Thanka in advance

Kalle