SelectedDate problem

Har ett litet problem med en kalender. Har en knapp utanför kalendern med följande sub.

Sub btFastDate_click(ByVal sender As Object, ByVal e As EventArgs) Handles btFastDate.Click
   calName.SelectedDate = CDate(lstYear.Value & "-" & lstMonth.Value & "-" & lstDay.Value)
   calName.DataBind()
End Sub

Den sätter alltså kalenderns selecteddate till det datum i tre select och det funkar fint. Men vad den inte gör är att förflytta sig till det valda datumet i kalendern. Så hur får jag den att göra detta?