Private Sub Grid1_FillComboBox(...)
  ' 2 Spalten: in der ersten die ID des Eintrag merken
  ' und in der zweiten den Text, der angezeigt werden soll
  With oComboBox
    .ColumnAdd , , , , False
    .ColumnAdd
 
    .AddItem "0" & vbTab & "Eintrag 1"
    .AddItem "1" & vbTab & "Eintrag 2"
    .AddItem "2" & vbTab & "Eintrag 3"
    .AddItem "3" & vbTab & "Eintrag 4"
 
    .BoundColumn = 1
    .DisplayColumn = 2
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de