Private Sub Irgendwas()
'...Löschen des gesamten TableDefs
Dim goDb As DAO.Database
Dim qdNew As QueryDef
Dim sql As String
 
'...Fehler überspringen, falls QueryDef nicht vorhanden
On Error Resume Next
 
Set goDb = goWs.OpenDatabase(gsStammdatDB, True, False)
goDb.QueryDefs.Delete Query_name
 
sql = "SELECT * FROM [XYZ] WHERE [Datum] >Now() -365 ORDER BY Sum1, Sum2," & _
  "Sum3, Kombi4, Sum5, Sum6 DESC"
 
Set qdNew = goDb.CreateQueryDef(Query_name, sql)
qdNew.Close
Set qdNew = Nothing
End sub