With TDBGrid1.Columns( 2 ).ValueItems
        .Presentation = dbgComboBox
        .MaxComboItems =  20 
        .Translate = True
        .Clear
        
        rst2.Open "SELECT CodArmy, NameArmy FROM Army", cn,  1 , adLockReadOnly
        Do Until rst2.EOF
            m.Value = rst2( 0 )
            m.DisplayValue = rst2( 1 )
            .Add m
            rst2.MoveNext
        Loop
        rst2.Close
        Set rst2 = Nothing
    End With

Private Sub TDBGrid1_ComboSelect(ByVal ColIndex As Integer)
    TDBGrid1.Columns(ColIndex).Value = TDBGrid1.Columns(ColIndex).Value
    TDBGrid1.Update
End Sub