Z>Public Sub ac_query()
Z>Dim acapp As Access.Application
Z>Set acapp = CreateObject("Access.Application.9")
Z>acapp.OpenCurrentDatabase "c:\Documents and Settings\1\lit.mdb"

Z>acapp.DoCmd.OpenModule ("real1")
Z>acapp.Visible = True
OpenModule здесь ни чем не поможет. Он просто открывает окно редактора.


Z>acapp.Run "m1"
Это у меня работает, если в проекте только одна процедура с именем m1.
В аксесе можно писать так: Module1.m1
Run такого не понимает.
У меня все процедуры имеют уникальное имя. Наверное это не самый умный выход .
Удачи.