For Each rel In CurrentDb.Relations
            If rel.Table = rs!tabelle Or rel.ForeignTable = rs!tabelle Then
 
                Current = rel.Table
                Foreign = rel.ForeignTable
 
                ' Prompt - Dialog vor Löschung der bestehenden Beziehung
                If MsgBox("Eine Beiziehung zwischen " & rel.Name & " existiert" & _
                  "bereits. " & vbCrLf _
                    & "Diese Beziehung wird gelöscht und wieder hergestellt.", _
                    vbOK) = vbOK Then
                    lAttrib = rel.Attributes
 
                    For Each fld In rel.Fields
                        'x = fld.ForeignName
                        x = fld.Name
                        Debug.Print fld.Name
                        Debug.Print fld.ForeignName
                    Next fld
                    'Debug.Print lAttrib
                    CurrentDb.Relations.Delete rel.Name
                    'Debug.Print rel.Name & ">>ForeignTable:" & rel.ForeignTable
                Else ' Wenn Cancel gewählt wurde, Exit.
                    Exit Sub
                End If
            End If
        Next rel
 
        Debug.Print Foreign
 
        ' Neue Beziehung mit alten Attributen erstellen.
        Set rel = CurrentDb.CreateRelation(x, Current, Foreign, lAttrib)