it is in the OpenDatabase, as follows:

Assume: you have a Jet database ("MyJetDB.mdb") in your application location

Assume: your database password is "Fred$" (no quotes)

To open the database, you would:

Private Sub ButOpenDB_Click()

dim dbCurrent as database
set dbCurrent = Workspaces(0).OpenDatabase(app.path & "\MyJetDB.mdb", false, false, ";pwd=Fred$")

End sub


------------------
http://www.smithvoice.com/vbfun.htm