Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
      Dim datCurrentDataRecord As Date = Me.dtpZeitkarte.Value()
 
      'Zuweisung der Kalenderwoche an das Label "lblCalenderWeekValue"
      Me.lblCalenderWeekValue.Text = DatePart(DateInterval.WeekOfYear, _
        datCurrentDataRecord)
 
      'Berechnung der Wochenstundensumme/Wochensollarbeitszeit
 
      'Berechnung des KW-Bereiches
      Dim datCurrentDate As Date
      Dim datWeekStartDate As Date
      Dim datWeekEndDate As Date
      'datCurrentDate = Now()
      datCurrentDate = datCurrentDataRecord
      datCurrentDate = datCurrentDate.AddDays(1)
 
      'Abfrageparameter [datWeekStartDate;datWeekEndDate]
      datWeekStartDate = datCurrentDate.AddDays(-datCurrentDate.DayOfWeek)
      datWeekEndDate = datWeekStartDate.AddDays(7)
 
      'Mitarbeiterermittlung
      'Abfrageparameter [strCurrentEmployee]
      Dim strCurrentEmployee As String = Me.cmbMKuerzel.Text()
 
      'Aufruf der StoredProcedure [mit den Parameter: 
      ' strCurrentEmployee;datWeekStartDate;datWeekEndDate]
      Dim cmdWochenarbeitszeit As New OleDb.OleDbCommand( _
        "ABF_WeeklyHoursOfWork", odcZeiterfassung)
      cmdWochenarbeitszeit.CommandType = CommandType.StoredProcedure
 
      'Parameter für das Anfangsdatum
      Dim prmWeekStartDate As New OleDb.OleDbParameter("@WeekStartDate", _
        OleDb.OleDbType.Date)
      prmWeekStartDate.Direction = ParameterDirection.Input
      prmWeekStartDate.Value = datWeekStartDate
      cmdWochenarbeitszeit.Parameters.Add(prmWeekStartDate)
 
      'Parameter für das Enddatum
      Dim prmWeekEndDate As New OleDb.OleDbParameter("@WeekEndDate", _
        OleDb.OleDbType.Date)
      prmWeekEndDate.Direction = ParameterDirection.Input
      prmWeekEndDate.Value = datWeekEndDate
      cmdWochenarbeitszeit.Parameters.Add(prmWeekEndDate)
 
      'Parameter für den Mitarbeiter
      Dim prmMKuerzel As New OleDb.OleDbParameter("@MKuerzel", _
        OleDb.OleDbType.Char)
      prmMKuerzel.Direction = ParameterDirection.Input
      prmMKuerzel.Value = strCurrentEmployee
      cmdWochenarbeitszeit.Parameters.Add(prmMKuerzel)
 
      'Benötigter OleDbDataAdapter und DataSet werden angelegt
      Dim odaABF_WeeklyHoursOfWork As New OleDb.OleDbDataAdapter( _
        cmdWochenarbeitszeit)
      Dim datABF_WeeklyHoursOfWork As New Data.DataSet()
 
      'Datenbankverbindung "odcZeiterfassung" wird verbunden/geschlossen
      'Ergebnisse werdem dem Control zugewiesen
      Me.odcZeiterfassung.Open()
      odaABF_WeeklyHoursOfWork.Fill(datABF_WeeklyHoursOfWork, _
        "ABF_WeeklyHoursOfWork")
      Me.odcZeiterfassung.Close()
 
      'Ergebnisse werdem dem Control zugewiesen
      Me.grdTest.SetDataBinding(datABF_WeeklyHoursOfWork, _
        "ABF_WeeklyHoursOfWork")