ASP Function problem

Er der nogen som kan se hvad der går galt med denne:

<%
function sprogtranslate(strToChange)

    sprogtranslate = strToChange

    strSQLTranslate1 = "SELECT translate FROM translations WHERE id = '" & sprogtranslate & "' and sprog = '" & session("adminsprog") & "'"
    Set RstObjTranslate1 = ConnObj.Execute(strSQLTranslate1)

    if not RstObjTranslate1.eof and not RstObjTranslate1.bof then
        sprogtranslate = RstObjTranslate1("translate")
    else
        sprogtranslate = "Oversættelse ikke fundet..."
    end if

end function
%>

Jeg får kun fejlen:

error '80004005'