How do make it a connection of Access Database from Excel?

[Dennis]

Hello;
I am creating a connection of Acess Database from a VBA code in Excel, but I
have a problem. The data base has protected with password; I know the key
word, but I don't know how to write it in VBA. That do I make?

Greetings.

[PaulD]

"Dennis" <[email protected]> wrote in message
news:[email protected]...
: Hello;
: I am creating a connection of Acess Database from a VBA code in Excel, but
I
: have a problem. The data base has protected with password; I know the key
: word, but I don't know how to write it in VBA. That do I make?
:
Here is some code I used in the past

Set cnnDB = New ADODB.Connection
With cnnDB
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Mode = adModeRead
.Properties("Jet OLEDB:Database Password") = "password"
.Open "\\MyDatabase"
End With

Paul D

[Dennis]

Thanks PaulD, it's wonderful

¡¡¡Worked it perfectly!!!

Grettings.


Dennis.

"PaulD" wrote:

>
> "Dennis" <[email protected]> wrote in message
> news:[email protected]...
> : Hello;
> : I am creating a connection of Acess Database from a VBA code in Excel, but
> I
> : have a problem. The data base has protected with password; I know the key
> : word, but I don't know how to write it in VBA. That do I make?
> :
> Here is some code I used in the past
>
> Set cnnDB = New ADODB.Connection
> With cnnDB
> .Provider = "Microsoft.Jet.OLEDB.4.0"
> .Mode = adModeRead
> .Properties("Jet OLEDB:Database Password") = "password"
> .Open "\\MyDatabase"
> End With
>
> Paul D
>
>
>