...гм, я думал ты буш ругатцаа..))
непроканал юмор
Private Sub Кнопка0_Click()
Dim MyVar As Variant
Dim App As Access.Application
' **** вариант №1
'Set App = GetObject("D:\Приложение Microsoft Office Access.mdb")
' **** вариант №2
Set App = CreateObject("Access.Application")
App.OpenCurrentDatabase "D:\Приложение Microsoft Office Access.mdb"
' **** конэц вар-янтов
MyVar = App.Run("AAA", 100)
MsgBox MyVar
End Sub