This should give you access to another existing database.

Dim appAccess As Access.Application

Sub DisplayForm()
   Const strConPathToSamples = "C:\TestApp\"

   Dim strDB As String

   ' Initialize string to database path.
   strDB = strConPathToSamples & "db1.mdb"
   ' Create new instance of Microsoft Access.
   Set appAccess = CreateObject("Access.Application")
   ' Open database in Microsoft Access window.
   appAccess.OpenCurrentDatabase strDB
   ' Open Orders form.
   appAccess.DoCmd.OpenForm "Form1"
   appAccess.Visible = True
   appAccess.DoCmd.Maximize
End Sub