Public Sub AddColTranslation(tdb As TrueOleDBGrid70.TDBGrid, GridCol, rs As ADODB.Recordset, ValueCol, DisplayCol)
Dim vi As TrueOleDBGrid70.ValueItem
    With tdb.Columns(Col)
        .Button = True
        .ValueItems.Presentation = dbgComboBox
        .ValueItems.Translate = True
        While Not rs.EOF
            Set vi = New TrueOleDBGrid70.ValueItem
            vi.DisplayValue = rs(tcol).Value
            vi.Value = rs(valcol).Value
            .ValueItems.Add vi
            rs.MoveNext
        Wend
    End With
End Sub

    tdb.FilterBar = True
    With tdb.Columns(Col)
        .ValueItems.Presentation = dbgComboBox
        .Button = False
        .FilterButton = True
        .ValueItems.MaxComboItems =  2 
        Set vi = New TrueOleDBGrid70.ValueItem
        vi.Value = "Да"
        .ValueItems.Add vi
        vi.Value = "Нет"
        .ValueItems.Add vi
    End With