Option Explicit

Dim appAccess As Access.Application

Sub CallingAccessObjectsFromAnotherApp()

On Error GoTo CallingAccessObjectsFromAnotherApp_Err

    Dim strTargetDatabase As String

    ' Initialize string to database path.
    strTargetDatabase = "C:\CodeDisk\MyMDB.mdb"
    
    ' Create new instance of Microsoft Access.
    Set appAccess = CreateObject("Access.Application.8")
    
    ' Open database in Microsoft Access window.
    appAccess.OpenCurrentDatabase strTargetDatabase

    ' Example of how to open a form.
    appAccess.DoCmd.OpenForm "frmMyFormName"
    
    ' Example of how to open a report.
    'appAccess.DoCmd.OpenReport "rptMyReportName", acViewPreview
    
    ' Example of how to open a macro.
    'appAccess.DoCmd.RunMacro "mcrMyMacroName"

CallingAccessObjectsFromAnotherApp_Exit:
    Exit Sub
    
CallingAccessObjectsFromAnotherApp_Err:
    
    If Err Then
        'Do whatever you need to here!
        Resume CallingAccessObjectsFromAnotherApp_Exit
    End If

End Sub