1: 2: 3: 4: 5: 6:
'Code below opens the external database Set acObj = CreateObject("Access.application") acObj.OpenCurrentDatabase CurrentProject.Path & "\DatabaseB.mdb" acObj.Visible = True acObj.UserControl = True acObj.DoCmd.Maximize