Dim dt As DataTable = DirectCast(bsData.DataSource, DataTable).GetChanges( _
  DataRowState.Modified)
 
For Each oDR As DataRow In dt.Rows
 
                'For Each dc As DataGridViewCell In oDR.ItemArray
                '    If (dc.State = DataGridViewElementStates.Modified) Then
                '       ... ' Modified gibts nicht
                '    End If
                'Next
Next