Problemer med usercontrol i usercontrol

Jeg får følgende fejlmeddelse selv om dgbeholder findes på emne.ascx? (de 2 sider kan ses nederst):

Compiler Error Message: BC30456: 'DgBeholder' is not a member of 'ASP.emne_ascx'.

Source Error:



Line 1:  <%@ Control Language="VB" Inherits="UserKoden" Src="emne.ascx.vb" %>
Line 2: 
Line 3:  <%@ register tagprefix="Foto" tagname="Foto" Src="~\media\foto\foto.ascx" %>


Source File: f:\www\edtwodth\www\referencer\emne.ascx    Line: 1


Emne.ascx ser sådan ud

<%@ Control Language="VB" Inherits="UserKoden" Src="emne.ascx.vb" %>

<%@ register tagprefix="Foto" tagname="Foto" Src="~\media\foto\foto.ascx" %>

<table width="100%" cellpadding="5" cellspacing="0">
    <tr>
        <td align="left" valign="top" width="80">
            Dato:       
        </td>
        <td align="left" valign="top">
            <%=dato%>
        </td>
    </tr>
    <tr>
        <td align="left" valign="top">
            Type:       
        </td>
        <td align="left" valign="top">
            <%=kategori%>
        </td>
    </tr>
    <tr>
        <td align="left" valign="top">
            Link:       
        </td>
        <td align="left" valign="top">
            <%=Web%>
        </td>
    </tr>   
</table>

<table width="100%" cellpadding="5" cellspacing="0">
    <tr>
        <td align="left" valign="top">
            <%=Beskrivelse%>       
        </td>
    </tr>
</table>

<asp:datagrid id="DgBeholder" Width="100%" runat="server" ShowFooter="false" ShowHeader="false" AllowPaging="False" CellPadding="0" GridLines="none" AllowSorting="False" AutoGenerateColumns="false">
    <columns>
        <asp:TemplateColumn HeaderStyle-HorizontalAlign="Center" HeaderStyle-VerticalAlign="Top" ItemStyle-HorizontalAlign="Center" ItemStyle-VerticalAlign="Top">
            <ItemTemplate>                                                                                                                                                                                                   
                <Foto:Foto Titel="Stort foto" id="Foto1" fotoplacering='<%# Div.Erstatblank(Container.DataItem("kategoriNavn")) & "/" & Div.Erstatblank(Container.DataItem("FilNavn"))  %>' maxheight="250" maxwidth="400" runat="server"/>
            </ItemTemplate>
        </asp:TemplateColumn>
    </columns>
</asp:datagrid>

og emne.ascx.vb ser sådan her ud:

Imports Database
Imports Diverse
Imports Microsoft.VisualBasic

Public Class UserKoden : Inherits UserControl

    Dim DataMysql as new DataBaseMysql()
    Dim DataOleDB as new DataBaseOleDB()
    Public Div as new DiverseFunktioner()   
    Dim Grid as New Gridmysql()

    Protected dgbeholder As System.Web.UI.Webcontrols.datagrid

    Public beskrivelse as string
    Public dato as string
    Public kategori as string
    Public Web as string   
   
    Public Sub Page_Load(Source As Object, E as EventArgs)
        if request.querystring("id") = "" then
            response.redirect(Div.Web & "referencer/")
        else
            DataMysql.OpenDb()
                DataMysql.DanData("SELECT * FROM referenceemne Where referenceid='" & request.querystring("id") & "';")
                If DataMysql.Data.read() then
                    Beskrivelse = replace(Div.ErstatBlank(DataMysql.Data("Beskrivelse").tostring()),vbCrLf, "<br>")
                    dato = format(DataMysql.Data("DatoTid"),"dd. MMMM yyyy")
                    kategori = DataMysql.Data("Kategoriid")
                    Web = Div.IkkeOplystWeb(Div.ErstatBlank(DataMysql.Data("Web").tostring()))
                end if
            DataMysql.CloseDb()
            DataMysql.OpenDb()
                DataMysql.DanData("SELECT * FROM referencekategori Where kategoriid='" & kategori & "';")
                If DataMysql.Data.read() then
                    kategori = Div.ErstatBlank(DataMysql.Data("Navn").tostring())
                end if           
            DataMysql.CloseDb()
        end if

        If not Page.IspostBack then
            fyld_dgbeholder()
        end if
    End Sub

    public sub fyld_dgbeholder()
        Dim udtryk as string
        udtryk = "SELECT Foto_Referenceemne.*, Foto.*, FotoKategori.*, Foto.FotoID FROM FotoKategori INNER JOIN (Foto INNER JOIN Foto_Referenceemne ON Foto.FotoID = Foto_Referenceemne.FotoID) ON FotoKategori.KategoriID = Foto.KategoriID WHERE (((Foto_Referenceemne.ReferenceID)=" & request.querystring("id") & "));"
        grid.griddan(udtryk, dgbeholder)
    end sub


End Class