FoundRows = DS_Auflagen.Tables("Table1").Select("auf_id=' " & dr_auf_id & "'") _
  ' der Primärschlüssel
            If FoundRows.Length < 1 Then
                Me.txtAnmerkungen.Text = "Fehler!! FoundRows.Length ist 0 oder" & _
                  "-1 !!"
            Else
                FoundRows(0)("auf_status") = Me.txtAnmerkungen.Text
            End If
            Me.DataAdapter_Auflagen.Update(DS_Auflagen)
            DS_Auflagen.AcceptChanges()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try