Private Sub dataGridView1_CellFormatting(ByVal sender As Object, _
    ByVal e As DataGridViewCellFormattingEventArgs) _
    Handles DataGridView.CellFormatting
        Try
            If TestDataSet.TabelleInDB.Rows(e.RowIndex).RowState = _
              DataRowState.Modified Then
                DataGridView.Rows(e.RowIndex).DefaultCellStyle.BackColor = _
                Color.Blue
            End If
        Catch ex As Exception
        End Try
 
    End Sub