Dim odsDataList As ObjectDataSource
        Dim ContentPlaceHolderNav As ContentPlaceHolder

        ContentPlaceHolderNav = CType(Master.FindControl("ContentPlaceHolderNavigation"), ContentPlaceHolder)

        If Not ContentPlaceHolderNav Is Nothing Then
            odsDataList = CType(ContentPlaceHolderNav.FindControl("ObjectDataSource1"), ObjectDataSource)
            If Not odsDataList Is Nothing Then
                DataList1.DataSourceID = odsDataList.ID
            End If
        End If