1: 2: 3: 4:
Set appInSight = CreateObject("Access.Application") appInSight.OpenCurrentDatabase "z:\Office\People.accdr"