vb.net - リストボックスから特定の顧客タイプを見つける

Question

仕事についてお聞きしたいです。

adult, child,concessionからの特定の顧客タイプを見つける必要がありますlistbox customer type。

これが私のコードです:

    Dim iCounter As Integer = 0
    Dim sCustType As String = ""

    sCustType = "adult" Or "child" Or "concession"


    For iCounter = 0 To lstCustType.Items.Count + 1

        If lstCustType.Items(iCounter) = sCustType Then

            lstQuoteResult.Items.Add(lstQuoteNum.Items(iCounter))
            lstCustResult.Items.Add(lstCustType.Items(iCounter))
            lstBagResult.Items.Add(lstBaggageWeight.Items(iCounter))
            lstBagWeightResult.Items.Add(lstBagWeight.Items(iCounter))
            lstDestResult.Items.Add(lstDestinationCost.Items(iCounter))
            lstTripResult.Items.Add(lstHighSesason.Items(iCounter))
            lstQuiteResult.Items.Add(lstQuiteCarriageCost.Items(iCounter))
            lstInsResult.Items.Add(lstInsurance.Items(iCounter))
            lstInsCResult.Items.Add(lstInsuraneCost.Items(iCounter))
            lstReturnResult.Items.Add(lstReturnTripCost.Items(iCounter))
            lstTotalResult.Items.Add(lstTotal.Items(iCounter))
        End If
    Next

しかし、うまくいきません。どうやらエラーが表示されているようですConversion from string "adult" to type 'Long' is not valid.

私を助けてください。

ありがとう。