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