Private Sub dg_wette_AfterUpdate(ByVal nRow As Long, ByVal nCol As Long, ByVal _
  sText As String)
    With rskonto
        sqlsuche = suchen("SELECT * FROM Konto " _
            & "WHERE Nummer LIKE '" & dg_wette.SelectedItem.CellText("nummer") _
            & "'", rskonto)
        .Fields("Plus").Value = CDbl(dg_wette.SelectedItem.CellText("gewinn"))
        .Fields("Minus").Value = CDbl(dg_wette.SelectedItem.CellText("einsatz"))
        .Update
        kontostand
    End With
End Sub
 
Private Sub dg_wette_BeforeUpdate(ByVal nRow As Long, ByVal nCol As Long, sText _
  As String, Cancel As Integer)
    With dg_wette.SelectedItem
        If nCol = 8 And sText = .CellText("tipp") Then
            .CellText("gewinn") = CDbl(.CellText("einsatz")) * CDbl(.CellText( _
              "quote"))
        Else
            .CellText("gewinn") = "0,00"
        End If
    End With
End Sub

Gru? aus Oberhausen, Salvatore

---

Man braucht nur mit Liebe einer Sache nachzugeben,
so gesellt sich das Gl?ck hinzu. (Johannes Trojan)