While x <> DGVtry.RowCount
If Not IsDBNull(dgvtry.Rows(0).Cells(1)) Then
If dgvtry.Rows(0).Cells(1).Value = "1" Then
LBLq1.Text = dgvtry.Rows(x).Cells(0).Value
ElseIf dgvtry.Rows(0).Cells(1).Value = "2" Then
LBLq2.Text = dgvtry.Rows(0).Cells(0).Value
End If
End If
x = x + 1
End While