'Kalenderwoche anzeigen
Dim nWeek As Integer
Dim vDatum As Date
vDatum = Date
nWeek = Val(Format$(vDatum, "ww", vbMonday, vbFirstFourDays))
txtKW.Text = nWeek
 
'das Datum der Woche ermitteln anhand einer Funktion von Dieter Otter
Dim vMonday As Date
Dim vSunday As Date
vMonday = GetDateFromWeek(nWeek, vbMonday)
vSunday = GetDateFromWeek(nWeek, vbSunday)
 
'den Pfad zu den Datenbanken angeben
DataSumKaKiFe.DatabaseName = App.Path & "\laufen.mdb"
DataEingabe.DatabaseName = App.Path & "\laufen.mdb"
DataMonatsSumme.DatabaseName = App.Path & "\laufen.mdb"
 
Dim sSQL As String
  Dim oRs As DAO.Recordset
 
  ' Datenbank öffnen
  If dbOpen(App.Path & "\laufen.mdb") Then
    ' Recordset-Objekt erstellen
    sSQL = "Select" & _
      "Datum,Wochentag,Laufzeit,KilometerZeit,Durchschnittspuls,Kalorien, " & _
    "Trainingsort,Fettverbrauch,Kilometer,Laufschuhe,[Fett/Gramm] FROM" & _
    "Lauftraining  " & _
    "WHERE (((Lauftraining.Datum) Between '" & CDate(vMonday) & "' And '" & _
    CDate(vSunday) & "')) " & _
    "ORDER BY Lauftraining.Datum DESC;"
 
    Set oRs = oDB.OpenRecordset(sSQL)