Почти неделю мучаюсь

Делаю вот так:

Ворд:

Public Sub ac_query()
Dim acapp As Access.Application
Set acapp = CreateObject("Access.Application.9")
acapp.OpenCurrentDatabase "c:\Documents and Settings\1\lit.mdb"
acapp.DoCmd.OpenModule ("real1")
acapp.Visible = True

' !!!!!!! В этом месте ругаецца !!!!!!!!
acapp.Run "m1"

acapp.Quit
Set acapp = Nothing
End Sub

Акцец:

Public Sub m1()
MsgBox ("e moe")
End Sub


На что получаю ответ (на том месте в исходнике, где отмечено):

Приложению Microsoft Access не удается найти процедуру 'm1'

Причем Акцец открывается, база данных в нем загружается, даже запускает VBA с
открытым в нем модулем "real1", где как Вы и догадываетесь лежит m1

Что делать уже не знаю, помогите плиз, не убивайте в человеке оптимиста