Dim BarCodeIngrid = From row As DataGridViewRow In DataGridViewReport.Rows Select CStr(row.Cells("R_BarCode").Value.ToString) Distinct
        For Each n In BarCodeIngrid

        Next