Private Sub KombiAnzahlErmitteln()
Me.Caption = " Mehrfacheinträge werden gesucht"
Dim qdNew As QueryDef
Dim sql As String
Dim goDb As dao.Database
Set goDb = goWs.OpenDatabase(gsStammdatDB, True, False)
'goDb.QueryDefs.Delete "KombiAbfrage" 
Set qdNew = goDb.OpenRecordset("SELECT KombiID, COUNT(*) FROM KombiIdent GROUP" & _
  "BY KombiID HAVING COUNT(*) > 1", dbOpenDynaset)
Set qdNew = goDb.CreateQueryDef("KombiAbfrage", sql)
qdNew.Close
Set qdNew = Nothing
End Sub