Private Sub Form_Load()
   Dim vi As ValueItem
   Dim vis As ValueItems
   Dim img As ListImage
   Set vi = New ValueItem
   Set vis = TDBGrid1.Columns("How").ValueItems
   vis.Clear
   For Each img In ImageList1.ListImages
      vi.Value = vis.Count
      vi.DisplayValue = img.Picture
      vis.Add vi
   Next
   
    Adodc1.Refresh
    Set RSClone = Adodc1.Recordset.Clone()
End Sub

Private Sub Form_Load()
   Dim vi As ValueItem
   Dim vis As ValueItems
   Dim img As ListImage
   Set vi = New ValueItem
   Set vis = TDBGrid1.Columns( 2 ).ValueItems
   vis.Translate = True
   vis.CycleOnClick = True
   vis.Clear
   For Each img In ImageList1.ListImages
      vi.Value = vis.Count
      vi.DisplayValue = img.Picture
      vis.Add vi
   Next
    
    Adodc1.Refresh
    Set RSClone = Adodc1.Recordset.Clone()
End Sub

Private Sub TDBGrid1_UnboundColumnFetch(Bookmark As Variant, ByVal Col As Integer, Value As Variant)
    
    RSClone.Bookmark = Bookmark
   Select Case Col
      Case  0 
         Value = RSClone("FirstName") & " " & RSClone("LastName")
      Case  2 
         Value = RSClone("ContactType")
   End Select
End Sub

Private Sub TDBGrid1_UnboundColumnFetch(Bookmark As Variant, ByVal Col As Integer, Value As Variant)    
    RSClone.Bookmark = Bookmark
   Select Case Col
      Case cnstИконка
          Value = Right(TDBGrid1.Columns( 2 ),  3 )
   end select
end sub

   For Each img In ImageList1.ListImages
      vi.Value = img.Key
      vi.DisplayValue = img.Picture
      vis.Add vi
   Next