Dim a = From Elementi In TuoBindingSource Where _
                    DirectCast(Elementi, DataRowView)("IDCompetenza").ToString = _
                    DataGridView2.Rows(e.RowIndex).Cells(0).Value.ToString  Select New Livello With _
                    {.DescrizioneLivello = DirectCast(Elementi, DataRowView)("DescrizioneLivello").ToString}