Как открыть Access из VB

[citysoft]

Пишу код:
Dim myAccess As Access.Application
Set myAccess = New Access.Application
myAccess.OpenCurrentDatabase "c:\aaa.mdb"

Access выдает стандартное предупреждение об опасности, нажимаю кнопку "Открыть" и Access пропадает.
Что не так ?
Заранее благодарен

[gjghjc]

А смысл этих телодвижений?
Если есть нужда работать с базой то поиск по словам ADODB.Connection и CreateObject может спасти отца русской демократии.
Если Нужно просто открыть базу то ShellExecute

ЗЫ Проверил, Акцесс реально пропадает. Странно к чему бы это?

[trash]

Потому что никто не потрудился выставить myAccess.Visible = True.

[gjghjc]

Потому что никто не потрудился выставить myAccess.Visible = True.

А ты пробовал? И у тебя Акцесс оставался видимым?
Я кстати сразу эту строку добавил в код. Но дело в том что после того как ты нажимаешь на кнопку открыть акцесс не просто становится невидимым, я даже процесса в таскменеджере не наблюдаю.

Да и вроде бы .Visible = True у приложения стоит по умолчанию.

Или я ошибаюсь?