Public Sub ShowFooter()
  Dim oRs As ADODB.Recordset
  Dim nSumme As Currency
 
  Set oRs = New ADODB.Recordset
  With oRs
    .CursorLocation = adUseClient
    .Open "SELECT SUM([Provision ZW]) FROM [export ap]", _
      Grid1.Recordset.ActiveConnection, _
      adOpenForwardOnly, adLockOptimistic
  End With
 
  With Grid1.Columns("Provision ZW")
    .FooterText = FormatCurrency(oRs.Fields(0).Value)
  End With
 
  oRs.Close
  Set oRs = Nothing    
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de