Private Sub initDDLByYear(ByVal dt As DataTable)

        ddlByYear.Items.Clear()

        ddlByYear.Items.Add(New ListItem(GetGlobalResourceObject("Resource1", "All"), ""))

        If Not dt Is Nothing Then

            Dim years = (From r In dt.AsEnumerable

                    Select DateTime.Parse(r("create_date").ToString()).ToString("yyyy")).Distinct

            For Each y In years

                ddlByYear.Items.Add(New ListItem(y.ToString, y.ToString))

            Next

        End If

    End Sub