Private Sub ShowSumme()
  ' Summenzeile aktualisieren
  Dim oRs As ADODB.Recordset
  Dim nSumme As Currency
 
  With Grid1.Columns("Betrag")
    Set oRs = oDB.Execute("SELECT SUM(Betrag) FROM tblAdressen" & IIf(sWHERE = _
      "", "", " WHERE " & sWHERE))
    If Not IsNull(oRs.Fields(0)) Then nSumme = oRs.Fields(0)
 
    .FooterText = FormatCurrency(nSumme)
    .FooterForeColor = IIf(nSumme < 0, vbRed, vbBlue)
 
    oRs.Close
    Set oRs = Nothing
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de