DataTable.Rows.Add(myNewRow)

 Private Shared Sub Zeilenaenderung(ByVal sender As Object, ByVal args As _
   Data.DataRowChangeEventArgs)
 
          If args.Action = DataRowAction.Add Then 'Wurde eine Zeile hinzugefügt
            Dim strDatumZeit As String = args.Row.Item(0)
            Dim strFailTxt As String = args.Row.Item(1)
            Dim strFailDetail As String = args.Row.Item(2)
            Dim strArt As String = sender.ToString
 
            'FailHistXML(strDatumZeit, strFailTxt, strArt, strFailDetail) ' _
              Aufruf der Funktion FailHistXML um den Fehler in der XML-Datei zu _
              speichern
 
             End If
 
    End Sub