ändra bild med funktion

Jaghåller på med ett forum där användarna även ska ha möjlighet att skicka meddelanden.

Jag har den här funktionen för att kolla om användaren har några nya meddelanden men den fungerar inte. Den rturnerar inget värde

Public Function nyamess()
        Dim antal As Integer
        Dim strsql As String = "select count(*) as antal from meddelanden where last=false and t_id=" & Session("user") & ""

        Dim objcmd As New OleDbCommand(strsql, objconn)
        Dim dr As OleDbDataReader
        objconn.Open()
        dr = objcmd.ExecuteReader
        If dr.Read() Then
            antal = dr("antal")
        End If
        If antal <> 0 Then
            Return "grafik/i_nyamess.gif"
        Else
            Return "grafik/i_nomess.gif"
        End If

        objconn.Close()
    End Function

Sen bilden

<asp:Image runat="server" imageurl='<%# nyamess() %>' alternatetext="Inga nya meddelanden" borderwidth="0" id="Mess" />