Dim oRs As ADODB.Recordset
Set oRs = Grid1.Recordset.ActiveConnection.Execute("SELECT SUM([Betrag]) FROM" & _
  "Tabelle" WHERE ...)
 
With Grid1.Columns("Betrag")
  .FooterText = FormatCurrency(oRs.Fields(0).Value)
End With
 
oRs.Close
Set oRs = Nothing

Dim oRs As ADODB.Recordset
Set oRs = Grid1.Recordset.ActiveConnection.Execute("SELECT SUM([Betrag]), SUM(" & _
  "Feld2) FROM Tabelle WHERE ...")
 
With Grid1
  .Columns("Betrag").FooterText = FormatCurrency(oRs.Fields(0).Value)
  .Columns("Feld2").FooterText = FormatCurrency(oRs.Fields(1).Value)
End With
 
oRs.Close
Set oRs = Nothing

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de