Private Sub Grid1_AfterUpdate(ByVal nRow As Long, ByVal nCol As Long, ByVal _
  sText As String)
  With Grid1
    If nCol = ... Then
      .Recordset.Fields("feld1") = .EditSubItem(spalte1)
      .Recordset.Fields("feld2") = .EditSubItem(spalte2)
      .Recordset.Fields("feld3") = .EditSubItem(spalte3)
      .Recordset.Update
    End If  
    .RowRefresh
  End With
End Sub

Private Sub Grid1_EditComboClick(ByVal ListIndex As Long, ByVal sText As String)
  With Grid1
      If .IsEditMode = MODE_ADDNEW Then
        If Not IsNull(.EditValue) Then
          .CellNew("spalte1") = .EditSubItem(spalte1)
          .CellNew("spalte2") = .EditSubItem(spalte2)
          .CellNew("spalte3") = .EditSubItem(spalte3)
        End If
      End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de