' Recordset bereinigen und übergeben
Set tstyle(aktStyle).rs = CheckPersonal(tstyle(aktStyle).rs)

Private Function CheckPersonal(ByRef rs As ADODB.Recordset) As ADODB.Recordset
    Dim nAdressNr As Long
    Dim Pers As New ADODB.Recordset
    Dim tmpRs As New ADODB.Recordset
    Dim i%
 
    rs.MoveFirst
    For i = 0 To rs.Fields.count - 1
        tmpRs.Fields.Append rs.Fields(i).Name, rs.Fields(i).Type, rs.Fields( _
          i).DefinedSize, rs.Fields(i).Attributes
    Next i
 
    tmpRs.Open
 
    rs.MoveFirst
    Do While Not rs.EOF
        tmpRs.AddNew
        For i = 0 To rs.Fields.count - 1
            tmpRs.Fields(i).Value = rs.Fields(i).Value
        Next i
        rs.MoveNext
    Loop
 
    tmpRs.MoveFirst
    Do While Not tmpRs.EOF
        nAdressNr = Val(tmpRs!AdressNr)
        If Pers.State = adStateOpen Then Pers.Close
        Pers.Open "SELECT p.Abteilung FROM Personalstamm as p INNER JOIN" & _
          "Marketingstamm AS m ON p.AdressID = m.AdressID WHERE m.AdressNr = " _
          & nAdressNr, conn
        If Not Pers.EOF Then
            If Not (RechtFuerAbteilung(Trim(Pers!Abteilung))) Then
                tmpRs.Delete adAffectCurrent
            End If
        End If
        tmpRs.MoveNext
    Loop
 
    tmpRs.MoveFirst
    rs.MoveFirst
 
    Set CheckPersonal = tmpRs
End Function