Private Sub sevGrid1_BeforeUpdate(ByVal nRow As Long, ByVal nCol As Long, sText _
  As String, Cancel As Integer)
On Error Resume Next
With sevGrid1
 Select Case nCol
    Case 2
        If .EditText <> "" Then
          If IsNull(.EditValue) Then
            Select Case MsgBox("" _
                               & vbCrLf & "Diese Farbbezeichnung ist neu." _
                               & vbCrLf & "Soll sie übernommen werden ?        " & _
                               "            " _
                               , vbYesNo Or vbQuestion Or vbDefaultButton1, _
                               "Neue Farbe ?")
 
                Case vbYes
 
                    Dim strFarbe As String
                    Dim lFarbe As Long
 
                    'neuen wert in das rsFarbe übernehmen
                      Cn.Execute "INSERT INTO TblFarbtext (FarbText) VALUES ('" _
                        & sText & "')"
                    rsFarbe.Requery
 
                    'requery der combobox
                    .EditComboRequery
 
                    'neue Farb-ID ermitteln
                    rsFarbe.MoveFirst
                    rsFarbe.Find "FarbText=" & sText
                    If Not rsFarbe.EOF And Not rsFarbe.BOF Then
                        lFarbe = rsFarbe.Fields("FarbTextNr")
                    End If
 
                    'neue werte anzeigen: lFarbe = .BoundColumn-IDwert / sText 
                    ' = .DisplayColumn-AnzeigeText
                    .CellNew(2) = lFarbe & vbTab & sText
 
                    'zeile speichern
                    .UpdateRow
 
                Case vbNo
                    Cancel = 2
            End Select
          End If
        End If
    Case 3
.......

bis später
Tomy