Code to open passworded Access Db

[mikeymay]

I am using the following to open a db

Sub dBConn()

Set cnConnection = CreateObject("ADODB.Connection")

cnConnection.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.Path & "\" & strdBFile

End Sub

I am unable to find the right code to open this db when is is encrypted.

Using Excel & Access 2016.


TIA

 

[Macropod]

Perhaps:

Sub dBConn()
Set cnConnection = CreateObject("ADODB.Connection")
cnConnection.Open "Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.Path & "\" & strdBFile, "UserName", "Password"
End Sub

I'm not sure whether you need to supply "UserName" along with the password, though. For some related content, see: https://support.microsoft.com/en-au...a-database-connection-from-an-asp-page-in-iis