Erro em User Control

Olá pessoal,

Faz pelo menos uns 3 anos que não mexo com .net

E agora surgiu um projeto para dar manutenção.

Porém preciso fazer algo muito simples de imediato.

Mas no entanto estou com um problema para compilar o projeto.

Está dando um erro na seguinte Sub

Private Sub BindResultadoBusca(ByRef drResultadoBusca As IDataReader) _
Handles DivBuscaNoticias1.BuscaEfetuada

' Trata a busca efetuada pelo usuário através do bloco de busca

' Esconder a tabela que exibe a íntegra da notícia
tabIntegraNoticia.Visible = False

' Definir sub-título como resultado da busca.

 Tdlistagemnoticias1.lblSubTitulo.Text = " <br>Resultado da busca<br>"

 ' Fazer o bind com o data list
 Tdlistagemnoticias1.dlistNoticias.DataSource = drResultadoBusca
 Tdlistagemnoticias1.dlistNoticias.DataBind()
 drResultadoBusca.Close()

 ' Verificar se o data list contém algum registro
 If Tdlistagemnoticias1.dlistNoticias.Items.Count > 0 Then
 ' Contém; exibir o data list.
 Tdlistagemnoticias1.dlistNoticias.Visible = True
 Tdlistagemnoticias1.lblMensagemRetornoBusca.Visible = False
 Tdlistagemnoticias1.lblSubTitulo.Visible = True
 Else
 ' Não contém; exibir mensagem para o usuário e esconder o data list.
 ' RN2.1.1.FR1.2
 ' Exibir mensagem informativa ao usuário se nenhuma notícia tiver sido encontrada de acordo com os critérios definidos pelo usuário.
 Tdlistagemnoticias1.lblMensagemRetornoBusca.Text = " <br> <br>Nenhuma notícia encontrada."
 Tdlistagemnoticias1.lblMensagemRetornoBusca.Visible = True
 Tdlistagemnoticias1.lblSubTitulo.Visible = False
 Tdlistagemnoticias1.dlistNoticias.Visible = False
 End If

 ' Exibir a td de listagem de notícias
 Tdlistagemnoticias1.Visible = True

End Sub
O Erro é o seguinte:

'Sao_Bernardo.tdListagemNoticias.Protected Dim WithEvents lblSubTitulo As System.Web.UI.WebControls.Label' is not accessible in this context because it is 'Protected'. D:\DOTNET\Projects\___LIXO\Sao_Bernardo\sbe1_Noticias\IntegraNoticia.aspx.vb 95 13 D:\...\Sao_Bernardo\
o conteúdo da tdListagemNoticias é o seguinte:

Arquivo: tdlistagemnoticias.ascx

<%@ Control Language="vb" AutoEventWireup="false" Inherits="Sao_Bernardo.tdListagemNoticias" CodeFile="tdListagemNoticias.ascx.vb" %>

<td width="560">
	<asp:Label id="lblSubTitulo" CssClass="comuns_titulo_sub_area" runat="server"></asp:Label>
	<asp:Label id="lblMensagemRetornoBusca" CssClass="noticias_titulo_lista" runat="server"></asp:Label>
	<asp:datalist id="dlistNoticias" runat="server">
 <ItemTemplate>
 <p class="noticias_titulo_lista">
 <!-- ID2.1.1.1.3 e ID2.2.1.1.3 - Data da notícia -->
 <span class="noticias_data_lista">
 <asp:Label id="lblDataNoticia" runat="server" Text='<%# Container.DataItem("Data").ToShortDateString()%>'/>
 </span>
 <!-- ID2.1.1.1.1 e ID2.2.1.1.1 - Título da notícia -->
 <!-- RN2.1.1.CD1.2 e RN2.2.1.CD1.2 -->
 <!-- O título de cada notícia deve ser um link para a visualização de sua íntegra. -->
 <!-- O link deve levar a AT2.3 - Sistema apresenta a íntegra da notícia selecionada e bloco de busca. -->
 <br>
 <a href='IntegraNoticia.aspx?IDNoticia=<%# Container.DataItem("IDNoticia")%>'>
 <asp:Label id="lblTituloNoticia" runat="server" Text='<%# Container.DataItem("Titulo")%>'/>
 </a>
 </p>
 <p class="noticias_lead_lista">
 <!-- ID2.1.1.1.2 e ID2.2.1.1.2 - Lead da notícia -->
 <asp:Label id="lblLeadNoticia" runat="server" Text='<%# Container.DataItem("Lead")%>'/>
 </p>
 </ItemTemplate>
	</asp:datalist>
</td>

Arquivo: tdlistagemnoticias.ascx.vb

Namespace Sao_Bernardo

Partial Class tdListagemNoticias
Inherits System.Web.UI.UserControl

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
End Sub

End Class

End Namespace

Alguém sabe porque tá dando este erro.

Lembro que este projeto inicialmente foi desenvolvido no Visual Studio 2003 e estou tentando executá-lo no Visual Studio 2005

alguns outros erro eu consegui resolver, tipo, classe de envio de e-mail e também a forma de chamar os AppSettings

Mas isto está me dando dor de cabeça.

Se alguém puder me ajudar, fico agradecido