Combolist в vsflexgrid - VB

Формулировка задачи:

скажите, как сделать так, чтобы в combolist отображалось 2 колонки рядом.
и как их программно забить значениями?

Решение задачи: «Combolist в vsflexgrid»

textual
                            Листинг программы 
                        

                            Rs_Combo.MoveFirst
<font color="blue">Do</font> <font color="blue">While</font> <font color="blue">Not</font> Rs_Combo.EOF
StrCl = StrCl + CStr(Rs_Combo(<font color="teal">"Kod"</font>)) & vbTab & Rs_Combo(<font color="teal">"Name"</font>) + <font color="teal">"|"</font>
Rs_Combo.MoveNext
<font color="blue">Loop</font>
FG.ComboList = StrCl

                        