Private Sub sevGrid1_AfterCellEdit(nRow As Long, ncol As Long, ByVal sText As _
  String)
 
 
  If StrPtr(sText) = 0 Then Exit Sub
 
  With sevGrid1
    If .IsEditMode = MODE_EDIT Then
      If .Columns(ncol).Key = "KW" Or .Columns(ncol).Key = "ART" Then
        kwneu = .Recordset("KW").Value
        an = .Recordset("ART").Value
        preisneu = .Recordset("PREIS").Value
 
            Set Db = OpenDatabase(pf)
            Set rs5 = Db.OpenRecordset("Select * from PREIS where (KW = " & _
              Replace$(FormatNumber$(kwneu, 5, vbTrue, vbFalse, vbFalse), Chr$( _
              44), Chr$(46)) & ") AND (Art= '" & an & "');")
 
             anneu = rs5.Fields(2)
 
        rs5.Close
        Set rs5 = Nothing
 
       .Recordset.Edit ' nur falls DAO
       .Recordset.Fields("Preis") = anneu
       .Recordset.Update
       .RowRefresh
 
     End If
     End If
    End With
 End Sub