AccessDBPass1

Dim db as Database
Dim Wkspc as WorkSpaces
Dim strPass as STRING
strPass = ";pwd=PASSWORD"
Set Wkspc = Workspaces(0)
Set db = Wkspc.OpenDatabase(DBName, False, False, strPass)
For simple Microsoft Access security, set the database password from the Security
item under the Tools menu in Access, select Set Database Password, and enter a
password. To use the database in VB, pass a value along with the "pwd" keyword to
the SOURCE value of the OpenDatabase method: