Dim Rs As Recordset
Set Rs = Db.OpenRecordset("SELECT SUM(Einzelpreis) As Gesamt FROM Tabelle WHERE" & _
  "...")
If Rs.RecordCount > 0 Then
  lblSumme.Text = FormatCurrency(Rs("Gesamt"))
End If
Rs.Close

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de