cArtikel.TabelleOeffnen ("SELECT DISTINCTROW Ersterfassung.Nummer," & _
  "Ersterfassung.Vorname, Ersterfassung.Name, Count(*) AS Anzahl," & _
  "Artikel.Bezeichnung, Artikel.Preis, Ausgang.Datum FROM (Artikel INNER JOIN" & _
  "Ersterfassung ON Artikel.Bezeichnung = Ersterfassung.Bezeichnung) INNER JOIN" & _
  "Ausgang ON Ersterfassung.Nummer = Ausgang.Barcode where" & _
  "Ersterfassung.Vorname = '" & txtVorname.Text & "' and  Ersterfassung.Name =" & _
  "'" & txtName.Text & "' GROUP BY Ersterfassung.Nummer, Ersterfassung.Vorname," & _
  "Ersterfassung.Name, Artikel.Bezeichnung, Artikel.Preis, Year(" & _
  "Ausgang.Datum)*12+DatePart('m',Ausgang.Datum)-1, Month(Ausgang.Datum)," & _
  "Ausgang.Datum Having (((Month([Ausgang].[Datum])) = '" & txtMonat.Text & _
  "')) ORDER BY Ausgang.Datum;")