Private Sub TippsQueryDef()
Dim goDb As dao.Database
Dim qdNew As QueryDef
Dim sql As String
''On Error Resume Next
Set goDb = goWs.OpenDatabase(gsStammdatDB, True, False)
''goDb.QueryDefs.Delete "TippsAbfrage"
Set qdNew = goDb.OpenRecordset("SELECT TippsID, COUNT(*) FROM [Tipps] GROUP BY" & _
  "TippsID HAVING COUNT(*) > 1", dbOpenDynaset)
Set qdNew = goDb.CreateQueryDef("TippsAbfrage", sql)
qdNew.Close
Set qdNew = Nothing
End Sub