Select SUM(Feldname) AS Summe From Tabellenname

Dim DB as Database
Dim RS as Recordset
 
set DB = OpenDatabase("C:\Datenbank.mdb")
set RS = DB.OpenRecordset("Select SUM(Feldname) AS Summe From Tabellenname")
     Label1.Caption = DB.Fields("Summe")
RS.Close
DB.Close