With grdStufe1
  If .IsEditMode() = MODE_ADDNEW Then
    .CellNew(5) = RSHilf.Fields("ArtNr")
   Else
    .Recordset.Fields("ArtNr") = RSHilf.Fields("ArtNr")
    .Recordset.Update
    .RowRefresh
  End If
End With

Private Sub grdStufe1_BeforeUpdate(ByVal Row As Long, ByVal Col As Long, Text _
  As String, cancel As Integer)
  On Error GoTo Fehler
  Select Case Col
    Case 5 'ArtikelNr
      With grdStufe1
        If strArtikelNr <> "" Then Text = strArtikelNr 'kommt vom Suchgrid
          If RSArtikel.State = adStateOpen Then RSArtikel.Close 'Prüfen ob die 
          ' datei geöffnet
          RSArtikel.Open "Select * from F00S1201 Where ArtNr = '" & Text & "'", _
            DB, adOpenStatic, adLockOptimistic
          If RSArtikel.RecordCount > 0 Then
            strArtikelNr = "" 'für nächste Suche leeren
            If .IsEditMode() = MODE_ADDNEW Then
              .CellNew(3) = RSArtikel.Fields("IdentNr")
              .CellNew(6) = RSArtikel.Fields("Artbez") & " " & RSArtikel.Fields( _
                "Artbez2")
              .CellNew(9) = "0"
             Else
              .Recordset.Fields("IDArtikel") = RSArtikel.Fields("IdentNr")
              .Recordset.Fields("Bezeichnung") = RSArtikel.Fields("Artbez") & "" & _
                "" & RSArtikel.Fields("Artbez2")
              .Recordset.Fields("Wert") = "0"
              .Recordset.Update
              .RowRefresh
            End If
           Else
            cancel = 2 'ab zum suchen
            fraArtikelSuchen.Visible = True
            txtArtikelSuchen(0).Text = Text
          End If
        End If
      End With
  End Select
  Exit Sub
Fehler:
  FehlerAnzeige Err.Number, Err.Description, ":  grdStufe1_BeforeUpdate"
End Sub