Dim row As DataRow
 
        Dim dt As DataTable = FzgDataSet.Tables("Grunddaten")
        Try
            For Each row In dt.Rows
                row.AcceptChanges ()
                row.Delete()
 
            Next
 Me.Validate()
            Me.GrunddatenBindingSource.EndEdit()
 
            Me.GrunddatenTableAdapter.Update(Me.FzgDataSet.Grunddaten)
        Catch ex As NullReferenceException
            MsgBox(ex.Message)
        End Try