Calendarコントロールの日付を取得し色を変えるには。

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Cal_SelectionChanged _
    (ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles Cal.SelectionChanged

        Dim cal As Calendar = CType(sender, Calendar)
        DispDetail(cal.SelectedDate)
        Dim selectString As String = "SELECT No, Date, memo FROM スケジュール where Date = #" & Me.Cal.SelectedDate.Date.ToShortDateString & "#"


        Dim connectString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                    "Data Source=C:\test\WebDB\スケジュール.mdb"
        Dim da As New OleDbDataAdapter(selectString, connectString)
        Dim ds As New DataSet
        da.Fill(ds)
        Me.Datagrid1.DataSource = ds
        Me.Datagrid1.DataBind()


    End Sub
    Private Sub DispDetail(ByVal SelectedDate As Date)
    End Sub

        Dim selectString As String = "SELECT No FROM スケジュール where Date = #" & Me.Cal.SelectedDate.Date.ToShortDateString & "#"

    Dim hConnection As System.Data.OleDb.OleDbConnection

    Try
        hConnection = New System.Data.OleDb.OleDbConnection("...")
        Dim hCommand As System.Data.OleDb.OleDbCommand

        Try
            Const COMMAND_TEXT As String = ( _
                "SELECT AnyField FROM TableName WHERE DateFields = @Date1" _
            )

            hCommand = New System.Data.OleDb.OleDbCommand(COMMAND_TEXT, hConnection)
            hCommand.Parameters.Add( _
                New System.Data.OleDb.OleDbParameter("@Date1", System.Data.OleDb.OleDbType.[ここにタイプを入れる], [VarChar などであればサイズを入れる]) _
            )
            hCommand.Parameters("@Date1").Value = Me.Cal.SelectedDate

            hConnection.Open()

            Try
                Dim hReader As System.Data.OleDb.OleDbDataReader
            
                Try
                    hReader = hCommand.ExecuteReader()

                    If hReader.HasRow = True Then
                        '/ ここに処理を追加
                    End If
                Finally
                    If Not hReader Is Nothing Then
                        hReader.Close()
                    End If
                End Try
            Finally
                If Not hConnection Is Nothing
                    hConnection.Close()
                End If
            End Try
        Finally
            If Not hCommand Is Nothing Then
                hCommand.Dispose()
            End If
        End Try
    Finally
        If Not hConnection Is Nothing Then
            hConnection.Dispose()
        End If
    End Try