Ms Access Execute Function

[markus888]

This also dosn't work:

typelib MsAcc "C:\Programme\Microsoft Office\Office12\MSACC.OLB"
typelib VBA "C:\Programme\Gemeinsame Dateien\Microsoft Shared\VBA\VBA6\VBE6.DLL"
VARIANT x = "F:\Folder\File.accdb"
VARIANT v = "Access.Application"
VARIANT z

MsAcc.Application oApp
oApp = VBA.GetObject(&x &v) Exception 0xC0000005. Access violation. Cannot read memory at 0x0. In at 0x0 (0x0+0x0).
z = oApp.Run("QM_Text", 123)


By using VBA I always get errors with functions.
Is there any way to get a Pointer to a open MS Access Application?
Thanks