Private Sub DataGridView1_CellFormatting(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) _
    Handles DataGridView1.CellFormatting
        Dim drv As DataRowView
        If e.RowIndex >= 0 Then
            If e.RowIndex <= Me.Adr2006DataSet.Tables("Tab1").Rows.Count - 1 Then
                drv = CType(Me.Tab1BindingSource.List.Item(e.RowIndex), _
                  DataRowView) 
                Dim c As Color
                If drv.Item("Geschlecht").ToString = "Männlich" Then
                    c = Color.LightBlue
                Else
                    c = Color.Pink
                End If
                e.CellStyle.BackColor = c
            End If
        End If
    End Sub

VB@rchiv its the Best