Option Explicit
 
Private Sub Form_Load()
   Grid.ColumnAdd "Spalte", "Spalte", 3000, , , TYPE_COMBOBOX
   Dim rs As New Recordset
   rs.Fields.Append "Spalte", adVarChar, 1000
   rs.Open
   rs.AddNew "Spalte", "Text123"
   Set Grid.Recordset = rs
   Grid.Refresh
End Sub
 
Private Sub Grid_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, oComboBox _
  As sevDataGrid2.EditComboBox)
   Dim rs As New ADODB.Recordset
   rs.Fields.Append "Name", adVarChar, 1000
   rs.Open
   rs.AddNew "Name", "Text123"
   Set oComboBox.Recordset = rs
   oComboBox.BoundColumn = 1
   oComboBox.DisplayColumn = 1
   oComboBox.AutoComplete = False
End Sub