For Each rs_Benuter In DataTableBenutzer.Rows
                    Try
 
 
                        Dim objZeile As DataRow
                        objZeile = DatasetPersonal.Tables( _
                          "Kenntnisnahme").NewRow()
 
                        With objZeile
                            .Item("ID_Person") = rs_Benuter!ID
                            .Item("ID_Meldung") = ID_Meldung
                            .Item("Kenntnisnahme") = False
 
                        End With
                        DatasetPersonal.Tables("Kenntnisnahme").Rows.Add( _
                          objZeile)
 
 
                        DataAdapterPersonal.Update(DatasetPersonal, _
                          "Kenntnisnahme")
                        DatasetPersonal.AcceptChanges()
 
 
                    Catch err As Exception
                        ' Error handling mechanism
                        '
                        MessageBox.Show(err.Message, "Kenntnisnahme")
                    End Try
                Next