Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
    ds.ReadXml(Application.StartupPath & "\test.xml")
    ds.AcceptChanges()
    UltraGrid1.DataSource = ds
    UltraGrid1.DataMember = "DA"
    UltraGrid1.DisplayLayout.Override.RowSelectors = _
      Infragistics.Win.DefaultableBoolean.True
    UltraGrid1.DisplayLayout.Override.AllowDelete = _
    Infragistics.Win.DefaultableBoolean.True
End Sub
 
Private Sub UltraButton1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles UltraButton1.Click
  Dim neuds As New DataSet
    neuds = ds.GetChanges(DataRowState.Deleted)
 
  UltraGrid2.DataSource = neuds
  UltraGrid2.DataMember = "DA"
  TextBox1.Text = "Anzahl Zeilen in ds.getchanges(..).tables('DA')=" & _
    ds.GetChanges(DataRowState.Deleted).Tables("DA").Rows.Count
End Sub