ник: LAN
Вдогонку. Окончательный рез-т:
Dim WordApp As Object, Ret
Set WordApp = CreateObject("Word.Application")
WordApp.Documents.Open "C:\MUSOR.DOC", , true
WordApp.Visible = True ' показываю открытый документ
Ret = SetForegroundWindow(Application.hWndAccessApp) ' возврат в Access-окно