'--------------------Meine SQL Anweisung 
' ----------------------------------------
    Dim sSql As String                               
    Dim rsData    As ADODB.Recordset
 
    sSql = ""
    sSql = sSql & " SELECT ID,SUM(Betrag)"
    sSql = sSql & " FROM Kundendaten WHERE Datum = '" & sevMonthview1.Value & _
      "'"
    Set rsData = OpenRS(sSql, False)
    oRs.CursorLocation = adUseClient
    oRs.Open sSql, goConn, adOpenStatic, adLockOptimistic
'------------------------------------------------------------------------------

'  Beispiel aus Hilfedatei
Private Sub ShowFooter()
  ' alle Betragsspalten aufsummieren
  Dim sSQL As String
  Dim i As Long
  Dim oRs As Recordset
  Dim nSumme As Long
 
  With Grid1
    ' zunächst alle Betragsspalten ermitteln
    For i = 1 To .Cols
      With .Columns(i)
        If .DataType = dtCurrency Then
          sSQL = sSQL & "SUM(" & Grid1.Recordset.Fields(i - 1).Name & "), "
        End If
      End With
    Next i
 
    If Len(sSQL) > 0 Then
      ' temporäres Recordset erstellen
      sSQL = Left$(sSQL, Len(sSQL) - 2)
      Set oRs = oDB.OpenRecordset("SELECT " & sSQL & " FROM Tabelle" & sWHERE)
      For i = 1 To .Cols
        With .Columns(i)
          If .DataType = dtCurrency Then
            nSumme = 0
            If oRs.RecordCount > 0 Then
              If Not IsNull(oRs.Fields(i - 1)) Then nSumme = oRs.Fields(i - 1)
            End If
            .FooterText = FormatCurrency(nSumme)
            Select Case nSumme
              Case < 0
                .FooterForeColor = vbRed
              Case > 0 
                .FooterForeColor = vbBlue
              Case Else
                .FooterForeColor = vbBlack
            End Select
          Else
            .FooterText = ""
          End If
        End With
      Next i
      oRs.Close
      Set oRs = Nothing
    End If
  End With
End Sub