[Q]Using "instr"

[bushmobile]

it's easier to use split in this situation:

Dim strTempCustom As String, strParts() As String
    Dim N As Integer
    
    rsCustomer.FindFirst "CompanyName= " & Chr(34) & cdTempCustom.strCompany & Chr(34)
    strTempCustom = rsCustomer!Products
    
    strParts = Split(strTempCustom, ",")
    For N = 0 To UBound(strParts)
        lstProduct.AddItem Trim$(strParts(N))
    Next N