Private Sub CustomersDataGridView_CellFormatting(ByVal sender As Object, _
      ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) _
      Handles CustomersDataGridView.CellFormatting
        If e.ColumnIndex = 0 Then
            Dim drv As DataRowView = Me.CustomersBindingSource(e.RowIndex)
 
            If drv("CompanyName").ToString().StartsWith("An") Then
                Dim cs As New DataGridViewCellStyle()
                cs.BackColor = Color.Red
                Me.CustomersDataGridView.Rows(e.RowIndex).DefaultCellStyle = cs
            End If
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist