' This code opens another instance of Access and the database that the full path and name is sent to the function.

Function OpenNewDatabase(strDatabase As String)
    Dim appAcc As Access.Application
   
    Set appAcc = New Access.Application
    appAcc.Visible = True
   
    appAcc.OpenCurrentDatabase (strDatabase)
    appAcc.UserControl = True
   
End Function