Private Sub Form_Load()
  With Grid1
    ...
    Set .Recordset = ...
 
    ' Spalten-Einstellungen
    .Columns(2).ColType = TYPE_COMBOLIST  ' Kombobox für Daten-Eingabe
    .Columns(2).MaxInputLength = 0
    ...
  End With
End Sub

Private Sub Grid1_FillComboBox(ByVal nRow As Long, ByVal nCol As Long)
  ' ComboBox mit Daten füllen (für EditMode)
  Dim oRs As Recordset
  Dim sItem As String
 
  With Grid1
    If nCol = 2 Then
      ' Recordset erstellen
      Set oRs = oDB.OpenRecordset("SELECT ArtikelNr, Bezeichnung FROM Tabelle")
      If oRs.RecordCount > 0 Then
        Do
          sItem = oRs.Fields("Bezeichnung")
          .ComboAddItem sItem + Space$(200 - Len(sItem)) + oRs.Fields( _
            "Artikelnr")
          oRs.MoveNext
        Loop Until oRs.Eof
      End If
      oRs.Close
      Set oRs = Nothing
    End If
  End With
End Sub

Private Sub Grid1_BeforeUpdate(ByVal nRow As Long, ByVal nCol As Long, sText As _
  String, Cancel As Integer)
  If nCol = 2 Then
    sText = Mid$(sText, 201)
  End If
End Sub

MsgBox Grid1.Version

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de