Problem med sletning af data i Access DB.

Jeg får denne fejlbesked:

-----------------------------------------------------------
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.Reflection.AmbiguousMatchException: No accessible overloaded 'ListItemCollection.Add' can be called without a narrowing conversion.

Source Error:


Line 23:   
Line 24:        Do While ObjRs.Read() = true
Line 25:            dropdownNyheder.items.Add(objrs("Overskrift"))
Line 26:        Loop
Line 27:   


Source File: C:\Projects\Tomo.dk\sletnyhed.ascx    Line: 25
-----------------------------------------------------------



Koden er her:

-----------------------------------------------------------
<%@ Control Language="VB" Inherits="databaser2" Src="kode_ascx.vb" Debug="true" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.Oledb" %>
<%@ import Namespace="System.Drawing.Imaging" %>
<%@ import Namespace="System.Web.Mail" %>
<script runat="server">

    Sub page_load
   
        If Session("inde") = true then
   
        else
        response.redirect("admin.aspx")
        end if
   
      If not page.ispostback then
   
        opendb("tomo")
   
        sSql="SELECT * FROM Nyheder"
   
        dandata()
   
        Do While ObjRs.Read() = true
            dropdownNyheder.items.Add(objrs("Overskrift"))
        Loop
   
        closedb()
   
      end if
   
    end sub
   
    Sub dropdownNyheder_SelectedIndexChanged(sender As Object, e As EventArgs)
   
    End Sub
   
    Sub btnSletnyhed_Click(sender As Object, e As EventArgs)
        'response.write(objrs("forfatter"))
        lblnyhedstekst.text = ""
        opendb("tomo")
   
        sSql="SELECT * FROM Nyheder WHERE Overskrift='" & dropdownNyheder.Selecteditem.text & "';"
   
        dandata()
   
        Do While ObjRs.Read() = true
                lblnyhedstekst.Text = lblnyhedstekst.Text & "<tr><td class=TEKST width=65%>" & ObjRs("Tekst") & "</td>"
                lblnyhedstekst.Text = lblnyhedstekst.Text & "<td width=20% class=TEKST align=left>" & ObjRs("Dato") & "</td>"
                lblnyhedstekst.Text = lblnyhedstekst.Text & "<td class=tekst width=15%> " & Objrs("Forfatter") & "</td></tr>"
        Loop
   
        'lblNyhedstekst.text = Objrs("tekst")
        'response.write(objrs("forfatter"))
   
        closedb()
    End Sub
   
    Sub btnSletalle_Click(sender As Object, e As EventArgs)
   
        opendb("tomo")
   
        sSql="DELETE FROM NYHEDER where overskrift='" & dropdownNyheder.Selecteditem.text & "';"
   
        skrivdata(sSql)
   
        closedb()
   
        Response.redirect("nyhedslet.aspx")
   
    End Sub

</script>
-----------------------------------------------------------


Jeg håber at en eller anden kan hjælpe mig...