Private Sub Kalender_DateChanged(ByVal sender As Object, ByVal e As _
     System.Windows.Forms.DateRangeEventArgs) Handles Kalender.DateChanged
        Dim strSQL As String
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim dtGebäude As New DataTable
        Dim daStunden As New OleDbDataAdapter(strSQL, conn)
        Dim daGebäude As New OleDbDataAdapter(strSQL, conn)
        conn.Open()
 
        daStunden.SelectCommand = New OleDbCommand("Select Datum, Kostenstelle," & _
          "Gebäude, User from tbl_Stunden where Datum = ? and User = ?", conn)
        daStunden.SelectCommand.Parameters.AddWithValue("@Datum", _
        Kalender.SelectionStart.ToShortDateString())
        daStunden.SelectCommand.Parameters.AddWithValue("@User", _
        Environment.UserName)
        daGebäude.SelectCommand = New OleDbCommand("Select [ID Nr Geb]," & _
        "Gebäude, Res1 from tbl_Gebäude", conn)
 
        daStunden.Fill(dt)
        daGebäude.Fill(dtGebäude)
        dgvStunden.DataSource = dt
 
        conn.Close()
        dt = Nothing
        dtGebäude = Nothing
        ds = Nothing
 
    End Sub