' Merit Badge Fair Common Files - Client side
'---------------------------
Sub Pickitem (lst,text,n)
  dim itm
  Select case n
  case 1
  ' Select the record that matches the value
    for each itm in lst
      if itm.value = text then
        itm.selected = true
        exit sub
      end if
    next
    
  case 2
  ' Select the record that matches the text
    for each itm in lst
      if itm.text = text then
        itm.selected = true
        exit sub
      end if
    next
  end select
end sub