Private Sub datBuchungen_RowColChange(ByVal eventSender As System.Object, ByVal _
  eventArgs As AxMSDataGridLib.DDataGridEvents_RowColChangeEvent) Handles _
  datBuchungen.RowColChange
 
        If Rs.Fields("Einnahme").Value > 0 Then
            txtUmsatz.Text = Rs.Fields("Einnahme").Value
            txtUmsatz.Text = Format(Umsatz, "#,##0.00")
            txtEinAus.Text = "E"
        Else
            txtUmsatz.Text = Rs.Fields("Ausgabe").Value
            txtUmsatz.Text = Format(Umsatz, "#,##0.00")
            txtEinAus.Text = "A"
        End If
 
        txtDatum.Text = Rs.Fields("Datum").Value
        txtBeleg.Text = Rs.Fields("Beleg").Value
        txtBezeichnung.Text = Rs.Fields("Bezeichnung").Value
        txtPeriode.Text = Rs.Fields("Periode").Value
 
End Sub