> acCon.CurrentDb.CreateQueryDef("****", ****) 
CurrentDb から返されるオブジェクトを、As DAO.Database な変数に
受け取っておき、使用後に ReleaseComObject しましょう。

また、CreateQueryDef から返されるオブジェクトも同様に、
As DAO.QueryDef で受け取っておく必要があります。