Private Sub DatenbestandBereinigen()
'...Datensätze die zwischen Datum1 und Datum2 liegen, löschen
Dim xDatum1 As Date, xDatum2 As Date, tStamp As Date
Dim goDb As DAO.Database
Set goDb = goWs.OpenDatabase(gsStammdatDB, True, False)
Set miRs = goDb.OpenRecordset("SELECT * FROM [Irgendwas] ORDER BY [KombiID]" & _
  "ASC", dbOpenDynaset)
 
'das Referenzdatum ermitteln
If miRs.RecordCount > 0 Then
  With miRs
    .MoveLast
  End With
tStamp = miRs.Fields("Datum").Value
Else
  miRs.Close
  Set miRs = Nothing
End If
 
  xDatum1 = DateAdd("m", -6, tStamp)
  xDatum2 = DateAdd("m", -3, tStamp)
  goDb.Execute "DELETE FROM [Irgendwas] WHERE [Datum] < #" & Format(xDatum1, _
    "m-d-yy") & "# AND [Datum] > #" & Format(xDatum2, "m-d-yy") & "#"
'...Ich hoffe hier keinen Gedankenfehler zu haben!
'...Von Snoopy habe ich die nachfolgende Anweisung, die ich mit der DELETE 
' Anweisung verknüpfen möchte.
  goDb.Execute "SELECT KombiID, COUNT(*) FROM [Irgendwas] GROUP BY KombiID" & _
    "HAVING COUNT(*) > 1"
'...Und zwar sollte der Syntax wie folgt lauten: Lösche alle Datensätze in der 
' Tabelle Irgendwas
'...die zwischen Datum1 und Datum2 liegen und deren KombiID nur 1mal in der 
' Tabelle vorkommen
End Sub