What's the error message ?

Tim

"sharon" wrote in message
...
Hi,

I'm filling a combobox with 10 columns, it works fine.
Now I need to add a new column, so I set

.ColumnCount = 10, and here it crashes.


If Len(Trim(rsINVOICES.Fields(10).Value)) 0 Then
.List(.ListCount - 1, 10) = (rsINVOICES.Fields(10).Value)
'
<- value is 6055
Else
.List(.ListCount - 1, 10) = " "
End If