Listbox update unknow (1 Viewer)

[Freshman]

Hi all,
I'm working on a app created by an unknow developer. In the one form (unbound) there is a list box being populted from the sub below.
But I can't seem to find the table or query it is refering to.
I would appreciate some advice on where to look for it.
Do I need to post extra info?

Thanks a lot

Sub updateDisplay_Item()

ItemKeyCombo.value = ""
Me.ItemDesc = ""
Me.txtCostLB = ""
Me.txtPriceLBBase = ""

Me.txtNumItems = ""
Me.lblMinQty.caption = ""

Me.txtPerItemCost = ""
Me.lblPerItemCostDtld.caption = ""

Me.txtPowderSrchgLb = ""
    
With currDisplayParams

    If Not .itemInfo Is Nothing Then
        
        ItemKeyCombo.value = .ItemKey
        Me.ItemDesc = .itemInfo.ItemDescription
        Me.txtCostLB = FormatCurrency(.itemInfo.baseCostLB, 2)
        Me.txtPriceLBBase = FormatCurrency(.itemInfo.basePriceLB, 2)
        
        If Not .frenchItemInfo Is Nothing Then

            Me.txtNumItems = .frenchItemInfo.numItemsMaterial
            Me.lblMinQty.caption = "(Min Qty. = " & FormatNumber(.frenchItemInfo.minQty, 2, vbTrue) & " lbs.)"

            If Not .frenchParams Is Nothing Then
            
                Me.txtPerItemCost = .frenchItemInfo.numItemsMaterial * .frenchParams.perItemTrxCost
                Me.lblPerItemCostDtld.caption = "(" & FormatCurrency(.frenchParams.perItemTrxCost, 2, vbTrue) & " x " & .frenchItemInfo.numItemsMaterial & " Items)"
            
            End If

        End If
        
    End If

End With

End Sub

 

[arnelgp]

check the Class section.
it is using custom data structure.

 

[Freshman]

Thanks that helped a bit. Gosh this code is confusing - very little notes.

 

[jdraw]

If you post some of the code or a copy of the database, I'm sure readers can help with logic and comments.

 

[Freshman]

If you post some of the code or a copy of the database, I'm sure readers can help with logic and comments.

Thanks ArnelGP provided enough for me to go on