Заполнение Combobox в True DBGrid - VB

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

Поставила у 7 колонки свойство presentation = combo box. вопрос: как его программно заполнить? кол-во строк я заранее не знаю. делаю цикл.
While Not rcd19.EOF
dbgrid.Columns(7).ValueItems.Add rcd19!name
rcd19.MoveNext
Wend
так ошибка выходит. в чем дело?

Решение задачи: «Заполнение Combobox в True DBGrid»

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

                            <font color="blue">Private</font> <font color="blue">Sub</font> Form_Load()
<font color="blue">Dim</font> vi <font color="blue">As</font> <font color="blue">New</font> ValueItem
<font color="blue">Dim</font> cn <font color="blue">As</font> ADODB.Connection
<font color="blue">Const</font> Provider = <font color="teal">"PROVIDER=Microsoft.Jet.OLEDB.4.0;"</font>
<font color="blue">Const</font> DataSource = <font color="teal">"Data Source=E:\rk.mdb;"</font>
<font color="blue">Dim</font> rc <font color="blue">As</font> ADODB.Recordset
<font color="blue">Dim</font> ss <font color="blue">As</font> <font color="blue">String</font>
<font color="blue">Set</font> cn = <font color="blue">New</font> ADODB.Connection
cn.ConnectionString = Provider & DataSource
cn.<font color="blue">Open</font>
<font color="blue">Set</font> rc = <font color="blue">New</font> ADODB.Recordset
ss = <font color="teal">"select * from ListMaterials"</font>
rc.<font color="blue">Open</font> ss, cn, adOpenKeyset, adLockOptimistic
    <font color="blue">While</font> <font color="blue">Not</font> rc.EOF
    vi.DisplayValue = rc!ListName
    vi.Value = rc!ListName
    gr.Columns(<font color="darkblue"><b>0</b></font>).ValueItems.Add vi <font color="00AA00">' Вот здесь пишет: Ошибка 13 несоответствие типов</font>
    rc.MoveNext
    <font color="blue">Wend</font>
 <font color="blue">End</font> <font color="blue">Sub</font>
                        