Private Sub NoPermitido()
Dim i As Integer = 0
Do
Dim datos As String = Me.DataGrid1.Items(i).Cells(1).Text
For Each celda As DataRow In datos2.Tables("Reporte2").Rows
If datos.Equals(celda.Item(1).ToString) Then
Me.DataGrid1.Items(i).BackColor = System.Drawing.Color.Red
Me.DataGrid1.Items(i).ForeColor = System.Drawing.Color.White
End If
Next
i += 1
Loop While (i <= Me.DataGrid1.Items.Count - 1)
End Sub
:kicking: