Du gibst ein: Schmitz, Montag, 09,00.
Nochmals: Schmitz, Montag, 09,00.
Nochmals: Schmitz, Mittwoch, 18.00.
Nochmals: Schmitz, Montag, 18,00.

Ich frage mal, wieviel mal Schmitz als Kunde überhaupt da ist:
 
Dim SQL As String
SQL = "Select Count(Name) As Anzahl From Kunde Where Name = 'Schmitz'"
Set RS = DB.OpenRecordSet(SQL, dbOpenDynaset)
 
Debug.Print RS!Anzahl ---- > Ergebnis: 4
 
Ich frage mal, Schmitz nur nach Montag ab:
 
DIM SQL As String
SQL = "SELECT SUM(Preis) As Summe, " & _
                               "Count(Name) As Anzahl," & _
                               "Name," & _
                               "WochenTag FROM Kunde WHERE WochenTag = 'Montag'"
Set RS = DB.OpenRecordSet(SQL, dbOpenDynaset)
 
Debug.Print RS!Name -----> Ergebnis: Schmitz
Debug.Print RS!Wochentag  Ergebnis: Montag
Debug.Print RS!Summe ---> Ergebnis: 36,00
Debug.Print RS!Anzahl -----> Ergebnis: 3