Dim mDataSet As CoreLab.MySql.MySqlDataSet = Me.DtsAuftrag.GetChanges( _
  System.Data.DataRowState.Added)
        Dim iDataSet As New CoreLab.MySql.MySqlDataSet
        iDataSet = Me.DtsAuftrag.Clone
        For i As Integer = 0 To mDataSet.Tables.Count - 1
            For Each dRow As System.Data.DataRow In mDataSet.Tables(i).Rows
                For Each dColumn As System.Data.DataColumn In dRow.Table.Columns
                    If (dColumn.AllowDBNull = True) OrElse ( _
                      dColumn.DefaultValue IsNot DBNull.Value) Then
                        iDataSet.Tables(i).ImportRow(dRow)
                        Exit For
                    End If
                Next
            Next
        Next