dim accessApp set accessApp = createObject("Access.Application") accessApp.visible = true accessApp.UserControl = true accessApp.OpenCurrentDataBase("C:\path.accdb") accessApp.Run "myLinker"