Mulitcolumn listbox - Add Item

[Helge's]

How do I add a row with two values in a listbox?

I thought I could just do

listbox.additem("a1","a2")

but it does not work.

Helge

 

[Dave Peterson]

Maybe...

dim myRng as range
dim myCell as range

set myrng = worksheets("somesheethere").range("a1:A10")

for each mycell in myrng.cells
With me.listbox1
.AddItem myCell.Value
.List(.ListCount - 1, 1) = myCell.Offset(0, 1).Value
end with
next mycell

========
Depending on what you're doing, you may be able to do it in one step.

me.listbox1.list = worksheets("somesheethere").range("a1:b10").value

 

[Helge's]

Thank you very much.

What I want to do is to take data from a database with ADO and put it
in a listbox with several columns. Then I thougth additem should be
quite easy.

Helge

 

[Dave Peterson]

I don't use ADO, but I would think that once you got your data refreshed in a
worksheet (via ADO???), then the code would work ok.

But that's a guess.