Dim lSumme As Long
Dim lRow As Long
 
With MSFlexGrid1
  For lRow = 1 To .Rows - 1
    lSumme = lSumme + Val(.TextMatrix(lRow, 2))
  Next
End With

Dim SQL As String
Dim Rs As Recordset
Dim lSumme As Long
 
SQL = "SELECT SUM(Feld) As Summe FROM Tabelle"
Set Rs = Db.OpenRecordset(SQL)
lSumme = Val(Rs("Summe"))
Rs.Close
Set Rs = Nothing