I am using a form in vba. I have to select a product and then the cost of the product should show up in a label box. I am using a combo box to select the product. I have the products in column a on sheet 1 and the prices in column b. How do I link the cost to the product?

My code for the product is

Sub loadProduct()

Dim cRow As Integer

Load frmSaveItems

cRow = 1

Do Until Sheets("Sheet1").Cells(cRow, 1).Value = Empty

cRow = cRow + 1

Loop

frmSaveItems.cbxProduct.RowSource = "Sheet1!A1:A" & cRow - 1