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

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de