ถามเรื่อง Calendar กับ Dayrendaer ใน ASP.NET ใช้ VB นะคะ

<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Dayrender3.aspx.vb" Inherits="Dayrender3" Debug="true"%>

<asp:Content ID="Content1" ContentPlaceHolderID="HeadContent" Runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="MainContent" Runat="Server">
    <asp:Calendar ID="Calendar1" runat="server" OnDayRender="Calendar1_Dayrender">
    <TodayDayStyle BackColor="#99CCFF" /></asp:Calendar>

    <asp:Label ID="Label1" runat="server"></asp:Label>

</asp:Content>

Imports System.Data
Imports System.Data.OleDb

Partial Class Dayrender3
    Inherits System.Web.UI.Page

    Dim objConn As New OleDbConnection
    Dim objCmd As New OleDbCommand
    Dim strConnString As String
    Dim strSQL As String
    Dim dataReader As OleDbDataReader
    Dim dSet As New DataSet
    Dim dAdapter As OleDbDataAdapter
    Dim dsHolidays As New DataSet
    Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)


    End Sub

    Sub Calendar1_Dayrender(ByVal sender As Object, ByVal e As DayRenderEventArgs) Handles Calendar1.DayRender

        strConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.MapPath("~/App_Data/Database1.accdb") & ";Jet OLEDB:Database Password=;"
        strSQL = "SELECT * FROM calendar_table ORDER BY ID ASC"

        objConn = New OleDbConnection(strConnString)
        'objConn.Open()

        objCmd = New OleDbCommand(strSQL, objConn)

        'dataReader = objCmd.ExecuteReader()

        dAdapter = New OleDbDataAdapter(strSQL, strConnString)

        dAdapter.Fill(dSet)

        Dim startDate As DateTime

        For Each dr As DataRow In dSet.Tables(0).Rows

            startDate = CType(dr("startdate"), DateTime)

            If e.Day.Date = startDate Then
                e.Cell.BackColor = System.Drawing.Color.Pink
            End If

        Next

    End Sub


End Class