Hi PITBULLCJR,

you are missing two parameters in your OpenDatabase statement, it should be like below:

Code:
Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\db1.mdb", False, False, ";pwd=password")
pls. refer below for more information:

Syntax

Set database = workspace.OpenDatabase (dbname, options, read-only, connect)

The OpenDatabase method syntax has these parts.


database An object variable that represents the Database object that you want to open.

workspace Optional. An object variable that represents the existing Workspace object that will contain the database. If you don't include a value for workspace, OpenDatabase uses the default workspace.

dbname A String that is the name of an existing Microsoft Jet database file, or the data source name (DSN) of an ODBC data source. See the Name property for more information about setting this value.

options Optional. A Variant that sets various options for the database, as specified in Settings.

read-only Optional. A Variant (Boolean subtype) value that is True if you want to open the database with read-only access, or False (default) if you want to open the database with read/write access.

connect Optional. A Variant (String subtype) that specifies various connection information, including passwords.