Credo che usando quel metodo si veda una FINESTRA che si apre e si chiude...? Sbaglio...?
A me non piace molto.
Dim strSQL As string
strSQL="INSERT INTO... copia il predicato SQL dalla query"
Dbengine(0)(0).Execute strSQL,dbFailOnError
Se poi servirà la gestione transazionale lo vedrai tu...