dbFile = App.Path + "\Bericht.mdb" 'Datenbank auswählen
    Set db = Workspaces(0).OpenDatabase(dbFile, False, False) 'Öffnen der 
    ' Datenbank
 
 
    SQL = "SELECT * From Bericht Where Verkäufer" 'SELECT ... - FROM Abschnitt
 
 
 
    Dim strVerkäufer As String 'Verkäufername in Variable vom Typ String 
    ' speichern
    Dim intI As Integer 'List Index der Combobox [Verkäufer] ermitteln um 
    ' später dann den Verkäufer in Variable zu speichern
 
    intI = cmdVerkäufer.ListIndex 'Der Variable den Wert des ListIndex der 
    ' Combobox [Verkäufer] zuweisen
 
 
    strVerkäufer = cmdVerkäufer.List(intI) 'Der Variable strVerkäufer den Namen 
    ' des Verkäufers aus der Combobox übermitteln mittels ListIndex
 
    'LIKE Abschnitt
    SQL = SQL + " Like '" & strVerkäufer & "'"
 
 
    Set rs = db.OpenRecordset(SQL) 'Öffnen der Datenbank auf Baisis einer SQL - 
    ' Abfrage
 
        While Not rs.EOF 'solange Recordset nicht am Ende
 
            Dim curUmsatz As Currency
            Dim curUmsatz2 As Currency
 
            curUmsatz = rs("Gewinn") 'Gewinn in Variable curUmsatz
            rs.MoveNext 'Falls mehr Umsätze von Verkäufer muss DB weiter 
            ' durchsucht werden --> Move Next
 
            curUmsatz2 = curUmsatz2 + curUmsatz 'Umsatz / Umsätze dazurechnen
 
        Wend
 
        MsgBox "Umsatz von Verkäufer: " & curUmsatz2 & " €", vbInformation + _
          vbOKOnly, "Umsatz von " & strVerkäufer 'MSGBOX ausgeben mit Umsatz 
        ' des Verkäufers
 
 
    rs.Close
    db.Close
    Set rs = Nothing
    Set db = Nothing

Mfg MyD