ник: Анатолий (Киев)
Попробуйте так:
Set AA = CreateObject("Access.Application")
AA.Visible = True
AA.UserControl = True
AA.OpenCurrentDatabase str
|
А почему вы не хотите открывать БД командной строкой? Типа так:
Shell "Путь к MSAccess.exe" & " " & str
DoEvents
AA = GetObject(str)
|