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

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

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" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
>
>
> 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
>
> *** Sent via Developersdex http://www.developersdex.com ***

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

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