Public Sub ShowFooter() 'Werte in Fußzeile
 
  Dim rs As ADODB.Recordset
  Set rs = Grid2.Recordset.ActiveConnection.Execute("SELECT SUM (feldA),SUM (" & _
    "feldB),Sum(feldC)FROM tabelleX")
 
  With Grid2
  .Columns("feldA").FooterText = Format((rs.Fields(0).Value), "##00.00") & " €"
  .Columns("feldB").FooterText = Format((rs.Fields(1).Value), "##00.00") & " €"
  .Columns("feldC").FooterText = Format((rs.Fields(2).Value), "##00.00") & " €"
 
  End With
  rs.Close
  Set rs = Nothing
 
End Sub