Dim oRs As Recordset
Set oRs = Db.OpenRecordset("SELECT SUM(Feldname) AS Summe FROM Tabelle")
If oRs.RecordCount > 0 Then
  MsgBox CSTR(oRs("Summe"))
End If
oRs.Close
Set oRs = Nothing

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de