Private Sub Grid1_BeforeUpdate(ByVal nRow As Long, ByVal nCol As Long, sText As _
  String, Cancel As Integer)
  On Error Resume Next
  With Grid1
    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 lFarbe As Long
 
                'neuen wert in das rsFarbe übernehmen
                oConn.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
              Case vbNo
                Cancel = 2
            End Select
          End If
        End If
    End Select
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de