Private Sub Grid1_AfterUpdate (ByVal nRow As Long, ByVal nCol As Long, ByVal _
  sText As String)
  If nCol = ... Then
    Grid1.Recordset.Fields("Gewicht") = ...
    Grid1.Recordset.Update
    Grid1.RowRefresh
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de