Private Sub QueryDef()
Dim goDb As dao.Database
Dim SQL As String
Set goDb = goWs.OpenDatabase(gsStammdatDB, True, False)
goDb.QueryDefs.Delete "TabAbfrage"
SQL = "SELECT KombiID, COUNT(*) FROM [Tabelle] GROUP BY KombiID HAVING COUNT(*)" & _
  ">= 1"
Set qkRs = goDb.CreateQueryDef("TabAbfrage", SQL)
qkRs.Close
Set qkRs = Nothing
End Sub

Set R = goDb.OpenRecordset("TabAbfrage", dbOpenDynaset)
R.Sort = "[KombiID]"