Zitat:

Du öffnest also einfach ein neues Reordset mit o.g. SQL-Statement und hast damit die Summe, welche Du suchst.

'Deklarationen
Dim MITARBEITERSUM As ADODB.Recordset
Dim SqlStatement As String
 
'Recordsetobjekt erstellen
Set MITARBEITERSUM As New ADODB.Recordset
 
'SQL-Statement erstellen
'Ergibt ein Recordset mit nur einem Datensatz und nur einem Summenfeld.
SqlStatement = "Select SUM(SVSPARENjahr) AS SummeSVSPARENjahr " & _
               "FROM Arbeitnehmer " & _
               "WHERE AGID = " & _
               Me.ListView1.SelectedItem.Text
 
'Summe ermitteln
'Recordset mit obigen SQL-Statement erstellen und öffnen.
With MITARBEITERSUM
    .ActiveConnection = CONNECT 
    .CursorType = ADODB.CursorTypeEnum.adOpenStatic 
    .LockType = ADODB.LockTypeEnum.adLockOptimistic 
    .Source = SqlStatement 
    .Open 
End With
 
'Summe zuweisen
'Feldinhalt aus Summenfeld des Recordsets auslesen und der Caption-Eigenschaft 
' zuweisen.
Me.SUMME1.Caption = MITARBEITERSUM.Fields("SummeSVSPARENjahr").Value
 
'Aufräumen
'Recordset schließen und Recordsetobjekt zerstören.
MITARBEITERSUM.Close
Set MITARBEITERSUM = Nothing

Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it. (Brian W. Kernighan)