Prova la forma :

Dim acApp As Access.Application
Set acApp = New Access.Application

Così dovrebbe funzionare.

Ciao,