MonthCalendar日期不会更改为Bold

Question

您好我突出显示或使我选择的日期变粗。我将事件添加到该日期的示例应该是粗体，以便我知道日期中有条目。但它没有用，我也不知道出了什么问题。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    mydbcon = New MySqlConnection
    mydbcon.ConnectionString = "server=localhost;userid=jared;password=jared;database=database"
    Dim reader As MySqlDataReader

    Try
        mydbcon.Open()
        Dim Query As String
        Query = "Insert into database.calendar (eventname,EventDate,Time,Description) Values ('" & TextBox2.Text & "','" & Form4.MonthCalendar1.SelectionRange.Start & "','" & ComboBox1.SelectedItem & "','" & TextBox1.Text & "')"
        COMMAND = New MySqlCommand(Query, mydbcon)
        reader = COMMAND.ExecuteReader
        MessageBox.Show("Event Succesfully Saved")
        mydbcon.Close()
    Catch ex As MySqlException
        MessageBox.Show(ex.Message)
    Finally
        mydbcon.Dispose()


        Try
            mydbcon.Open()
            Dim eventdate As String
            eventdate = "SELECT * FROM database.calendar Where EventDate = '" & Form4.MonthCalendar1.SelectionRange.Start & "'"
            reader = COMMAND.ExecuteReader

            If reader.HasRows = True Then
                While reader.Read
                    eventdate = reader.GetValue(reader.GetOrdinal("EventDate")).ToShortDateString
                    Form4.MonthCalendar1.AddBoldedDate(CDate(eventdate))
                End While
                reader.Close()
                Form4.MonthCalendar1.UpdateBoldedDates()
            End If
            mydbcon.Close()
        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
        Finally
            mydbcon.Dispose()
        End Try
    End Try
End Sub

结束班