Dim woche1 As DAO.Recordset
 SummeWoche1 = "SELECT Count(Rückflussdaten.KundenNr) AS SummeKundenNr From" & _
   "Rückflussdaten WHERE ErfDatum BETWEEN #" & _
                      Format$(vMonday, "m-d-yy") & "# AND #" & _
                     Format$(vSunday, "m-d-yy") & "#"
Set woche1 = oDB.OpenRecordset(SummeWoche1) 'Recordset zuweisen
txtKw1.Value = woche1("SummeKundenNr")
'Aktuelle woche -1
Dim woche2 As DAO.Recordset
 SummeWoche2 = "SELECT Count(Rückflussdaten.KundenNr) AS SummeKundenNr1 From" & _
   "Rückflussdaten WHERE ErfDatum BETWEEN #" & _
                      Format$(vMonday1, "m-d-yy") & "# AND #" & _
                     Format$(vSunday1, "m-d-yy") & "#"
Set woche2 = oDB.OpenRecordset(SummeWoche2) 'Recordset zuweisen
txtKw2.Value = woche2("SummeKundenNr1")
'Aktuelle woche -2
Dim woche3 As DAO.Recordset
 SummeWoche3 = "SELECT Count(Rückflussdaten.KundenNr) AS SummeKundenNr2 From" & _
   "Rückflussdaten WHERE ErfDatum BETWEEN #" & _
                      Format$(vMonday2, "m-d-yy") & "# AND #" & _
                     Format$(vSunday2, "m-d-yy") & "#"
Set woche3 = oDB.OpenRecordset(SummeWoche3) 'Recordset zuweisen
txtKW3.Value = woche3("SummeKundenNr2")
'Aktuelle woche -3
Dim woche4 As DAO.Recordset
 SummeWoche4 = "SELECT Count(Rückflussdaten.KundenNr) AS SummeKundenNr3 From" & _
   "Rückflussdaten WHERE ErfDatum BETWEEN #" & _
                      Format$(vMonday3, "m-d-yy") & "# AND #" & _
                     Format$(vSunday3, "m-d-yy") & "#"
Set woche4 = oDB.OpenRecordset(SummeWoche4) 'Recordset zuweisen
txtKw4.Value = woche4("SummeKundenNr3")