Help with Loops

Perhaps.

Sub cmdFind()
Dim ProID As Integer
Dim unit As String
Dim Qty As Long
Dim I As Long
Dim UnitCol As Variant
Dim arrUnits()

    'Declare the data range
    Set myrange = Sheets("Database").Range("tblProducts")

    arrUnits = Array("Kilograms", "Grams", "Pounds", "Ounces Dry", "Liter", "Mils", "Each", "Ounces Liquid")

    For I = 1 To 10
        ProID = Me.Controls("cboIng" & I).Column(0)
        unit = Me.Controls("cboUnit" & I).Value
        Qty = Me.Controls("txtQty" & I).Value

        UnitCol = Application.Match(unit, arrUnits, 0)

        If Not IsError(UnitCol) Then

            Me.Controls("Cost" & I).Value = Application.VLookup(ProID, myrange, UnitCol + 15, 0) * Qty
        End If

    Next I

    For I = 1 To 10
        Me.txtCost.Value = Val(Me.txtCost.Value) + Val(Me.Controls("Cost" & I).Value)
    Next I

End Sub