запуск макроса Access из VB

[НиколайП]

помогите, не могу нигде найти эту информацию. В файле БД Access находятся два макроса, как можно из VB запустить эти макросы или хотя бы просто объясните как из VB запустить Access.
Я на форумах находил кучу советов, но у меня почему то ничего не срабатывает...
для примера покажу два кода, подскажите в чём ошибки:

Dim ac As Access.Application
ac = CreateObject(App.Path & "\DB\texinfo.mdb")
ac.docmd.RunMacro (("discont"))
ac.Quit

и

Set acc = CreateObject("access.application")
acc.opencurrentdatabase (App.Path & "\DB\texinfo.mdb")
acc.Visible = True
acc.docmd.RunMacro (("discont"))

оба у меня не работают
БД у меня без пароля.

[GSerg]

Второй точно правильный, только скобки убери вокруг App.Path & "\DB\texinfo.mdb" и "discont"

[НиколайП]

Access у меня открывается, по второму коду, но как то очень уж быстро после этого закрывается сам опять ... , макрос не срабатывает, я успеваю лишь заметить что access открывается и сразу же закрывается, в чём может быть проблемма ?