Dim goDb As DAO.Database
Dim qdNew As QueryDef
Dim sql As String
On Error Resume Next
Set goDb = goWs.OpenDatabase(gsStammdatDB, True, False)
'...alte QueryDef löschen
goDb.QueryDefs.Delete Query_name
sql = "SELECT * FROM [Irgendwas] WHERE [Datum] >Now() -365 ORDER BY Sum1" & _
  "DESC, Sum2 DESC, Sum3 DESC, Double DESC, Sum4 DESC, Sum5 DESC"
Set qdNew = goDb.CreateQueryDef(Query_name, sql)
qdNew.Close
Set qdNew = Nothing

Set qdNew = goDb.OpenRecordset("SELECT Double, COUNT(*) FROM [Query_name] GROUP" & _
  "BY Double HAVING COUNT(*) > 1", dbOpenDynaset)