True dbgrid data type mismatch during field update - VB

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

Привет всем.
Такая проблемс:
Кинул на форму true dbgrid, подключил к аксу, к числовому полю (связь с таблицей Army) подключил combobox таким способом

TDBGrid1.Columns().ValueItems
        .Presentation = dbgComboBox
        .MaxComboItems = 
        .Translate = True
        .Clear
        
        rst2. , cn, , adLockReadOnly
          rst2.EOF
            m.Value = rst2()
            m.DisplayValue = rst2()
            .Add m
            rst2.MoveNext
        
        rst2.
         rst2 = 
     

запускаю, все отображается, но когда выбираю новое значение из комбика, пишет "data type mismatch during field update"...
С VB работал мало. Перевожу форму с Access на VB. Кто с таким сталкивался? Что не так сделал?
Всем спасибо!

Решение задачи: «True dbgrid data type mismatch during field update»

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

                            <font color="blue">Private</font> <font color="blue">Sub</font> TDBGrid1_ComboSelect(<font color="blue">ByVal</font> ColIndex <font color="blue">As</font> <font color="blue">Integer</font>)
    TDBGrid1.Columns(ColIndex).Value = TDBGrid1.Columns(ColIndex).Value
    TDBGrid1.Update
<font color="blue">End</font> <font color="blue">Sub</font>
                        