How can i dynamically add the event handler for the link button clicking event

This is my source code,But this is not working

Private sub ShowWeek()
dim lnkButton as New LinkButton
lnkButton.ID="Day1"
lnkButton.Text="Date" (For e.g)
AddHadler lnkbutton.Click, Addressof DateChaged
End Sub

This ShowWeek() function is called in the HTML tag like <%=ShowWeek()%>. And i am having Place holder which holds the dynamically created link buttons.

Sub DateChanged(sender as object, e as system.eventArgs)
Response.write("Test control")
End sub

The event datechanged is not calling when i am clicking the link button