I need to populate a combo box into 3 columns not just one as shown below
I will appreciate any assistance

While Not rs.EOF
cbo2.AddItem (rs.Fields(0) & " " & rs.Fields(1) & " " & rs.Fields(2))
If rs.EOF Then
GoTo Exitna
End If
rs.MoveNext
Wend

Many thanks
Phil

Can't you use a combo box bound to the original table/query from which rs is derived? Then you can use the Column Count property.

Clive Astley

clive, thanks , but I wantd to populate from a recordset run from a sql query . I have now got the answer, I had left out the semicolons between the rs.fields()

cbo2.AddItem (rs.Fields(0) & ";" & rs.Fields(1) & ";" & rs.Fields(2))

all the best
Phil.t

Hi Phil. Glad you got the answer. And I have learnt something too - I wouldn't have thought of the semicolons. So, thanks.

Best wishes,

Clive Astley