Private Sub ShowFooter()
  Dim sSQL As String
  Dim i As Long
  Dim nSumme As Long
  Dim oRs As ADODB.Recordset
 
  Set oRs = sevGrid1.Recordset.ActiveConnection.Execute( _
    "SELECT SUM([Betrag]) FROM Stammdaten")
 
  With sevGrid1.Columns("Betrag")
    .FooterText = FormatCurrency(oRs.Fields(0).Value)
  End With
 
  oRs.Close
  Set oRs = Nothing
End Sub