I have a listbox with values that I want added from a certain column and the result displayed in textbox. This is my code, but it doesn't work. It keeps giving my type mismatch and I can't figure out why. The column I am adding is a double

Private Sub Hrs_Calc()
Dim i As Integer
Dim JHrs As Double
i = 0
JHrs = 0
'12 months
For i = 0 To lstResults.ListCount - 1
JHrs = JHrs + lstResults.Column(5, i)
Next
Me.Job_Hrs.Value = JHrs
End Sub

assuming your list box is pulling its data from a table or a query, why not try a domain aggregate function:

MyAnswer = DSum("[nameOfFieldInTableOrQuery]", "nameOfTableOrQuery")

it's a lot more elegant than stepping through the list.


izy