Open a password-protected MDB database with ADO

The syntax for opening a password-protected Jet database might not be obvious. In fact, assigning the password to the Password property in the ConnectionString raises the following error:

Run-time Error: 2147217843 (80040e4d)Cannot start your application. The workgroup information file is missing or _    openened exclusively by another user.

Instead, you must assign your password to the Jet OLEDB:Database Password dynamic property:

Dim cn As New ADODB.Connectioncn.Provider = "Microsoft Jet 4.0 OLE DB Provider"cn.ConnectionString = "Data Source=c:db1.mdb"cn.Properties("Jet OLEDB:Database Password") = "mypwd"cn.Open

Of course, you can reach the same result and write more concise code by embedding all values in the connection string:

Dim cn As New ADODB.Connectioncn.Open "Provider=Microsoft Jet 4.0 OLE DB Provider;Data Source=c:db1.mdb;Jet " _    & "OLEDB:Database Password=fb"

Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: