Private Sub cmdKillBesitzer_Click()
  Dim KillBesitzer As String
  ' Aktuellen Datensatzzeiger merken
  BookMerker = Rs.Hits.Bookmark
  '-------------------------------------
  ' Unterprogramm zum löschen anspringen
  '-------------------------------------
   Call DeleteMark("Besitzer", KillBesitzer)
  '----------------------------------
  ' Hier liegt mein Problem !!
  '---------------------------------
  ' Alle Besitzer-ComboBoxen leeren
  '--------------------------------
  Me.cboFilter(3).Clear
  frmEingabe.cboBesitzer.Clear
  frmAuswahl.cboBesitzer.Clear
  '---------------------------------------
  ' Alle Besitzer-Comboboxen
  ' aus der Besitzer-Tabelle
  ' wieder füllen
  '---------------------------------------
  With Rs.Besitzer
    .MoveFirst
    Do While .EOF = False
      Me.cboFilter(3).AddItem !Name
      frmEingabe.cboBesitzer.AddItem !Name
      frmAuswahl.cboBesitzer.AddItem !Name
      .MoveNext
    Loop
  End With
  Rs.Hits.MoveFirst
  '------------------------------------------
  ' DataGrid aktualisieren und Spalten halten
  '------------------------------------------
  grdListing.Refresh
  grdListing.HoldFields
  '-------------------------------
  ' Datenbank-Information erneuern
  '-------------------------------
  lblGesamt.Caption = "Es werden zur Zeit " & Rs.Hits.RecordCount _
    & " Datensätze angezeigt!"
End Sub

 Public Sub DeleteMark(tbl As String, sText As String)
  '-----------------------------------------------
  ' In den Bezugstabellen entsprechende ID löschen
  '-----------------------------------------------
  Dim iKill As Long   ' Zu löschende ID in der Tabelle
  Dim SQL As String   ' Ausführbarer SQL-Befehl
  Dim j As Long       ' Variable für sFile()
  Dim k As Long       ' Variable zum löschen des Filenamens
                      ' sowie des Titels aus den Tabellen
  '------------------------
  ' Public-Array bereinigen
  '------------------------
  ReDim sFile(0)
  Select Case tbl
    Case "Besitzer"
      '--------------------------------------
      ' ID aus der Haupttabelle für nicht in
      ' Beziehung stehende Tabellen merken.
      '--------------------------------------
      With Rs.Hits
        .MoveFirst
        Do While .EOF = False
          If !Besitzer = sText Then
            j = j + 1
            ReDim Preserve sFile(j)
            sFile(j) = !ID
          End If
          .MoveNext
        Loop
      End With
      '------------------------------
      ' Den Besitzer in der Besitzer-
      ' Tabelle suchen und löschen
      '------------------------------
      With Rs.Besitzer
        .MoveFirst
        Do While .EOF = False
          If !Name = sText Then
            iKill = !ID
            GoSub NowKill
            Exit Do
          End If
          .MoveNext
        Loop
      End With
  End Select
  '----------------------------------------
  ' In den Tabellen die KEINE Beziehung zur
  ' Haupttabelle haben die Einträge löschen
  ' die dem Besitzer zugeordnet waren
  '----------------------------------------
  For k = 1 To j
    Db.Execute "DELETE FROM Titel WHERE Titel!ID = " & sFile(k)
    Db.Execute "DELETE FROM FileName WHERE FileName!ID = " & sFile(k)
  Next k
  Exit Sub
NowKill:
  '------------------------------------------
  ' Datensatz in den Tabellen löschen, welche
  ' eine Beziehung zur Haupttabelle haben
  '------------------------------------------
  SQL = "DELETE FROM " & tbl & " WHERE " & tbl _
         & "!ID = " & Str(iKill)
  Db.Execute SQL
  ' Rücksprung
  Return
End Sub

LG
Plumber44