Read the help on columncount. You are limited to 10 columns unless you bind
the control to the worksheet.

Here is the quote from the help file:

"For an an unbound data source, there is a 10-column limit (0 to 9)."

--
Regards,
Tom Ogilvy


"sharon" wrote:

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