Set Rs = db.OpenRecordset("Rid_Auftraege", dbOpenDynaset)
Set RsR = db.OpenRecordset("SELECT DISTINCTROW Postleitzahlen.*, Adressen.*," & _
  "Firmen.*, Rechnungen.* FROM (((Rechnungen INNER JOIN Uebergabestellen ON" & _
  "Rechnungen.ID_Uebergabestelle = Uebergabestellen.ID_Uebergabestelle) INNER" & _
  "JOIN Firmen ON Uebergabestellen.ID_Firma = Firmen.ID_Firma) INNER JOIN" & _
  "Adressen ON Firmen.ID_Firma = Adressen.ID_Firma) INNER JOIN Postleitzahlen" & _
  "ON Adressen.ID_PLZ = Postleitzahlen.ID_PLZ;", dbOpenDynaset)

RsR.Edit
RsR!Rid_Code = Rs!ID_Rid
 RsR!Rid_durchgefuehrt = True