Calendar Control in VB.NET 2008

I'm going to actualy answer my own question for anyone who finds this but wants to tie it to a SQL statement. Protected Sub CalendarControl_DayRender(ByVal sender As Object, ByVal e As DayRenderEventArgs) Dim myConnection As SqlConnection = New SqlConnection("server=servername;uid=username;pwd=password;database=dbname") Dim myCommand As SqlCommand Dim dr As SqlDataReader Try myConnection.Open() 'opening the connection myCommand = New SqlCommand("SELECT statement goes here", myConnection) 'executing the command and assigning it to connection dr = myCommand.ExecuteReader() While dr.Read() 'reading from the datareader If FormatDateTime(dr("date_field_to_tie_to_calendar").ToString(), DateFormat.ShortDate) = e.Day.[Date].ToShortDateString() Then Dim literal1 As New Literal() literal1.Text = "<br/>" e.Cell.Controls.Add(literal1) Dim label1 As New Label() label1.Text = dr("field_to_add_to_date").ToString() label1.Font.Size = New FontUnit(FontSize.XXSmall) e.Cell.Controls.Add(label1) End If End While dr.Close() myConnection.Close() Catch ex As Exception End Try End Sub