Hent Stream fra SQL

Jeg har prøvet i et stykke tid med denne, men kan ikke få det til at funke:

Const adExecuteStream = &H00000400
Const adCmdStoredProc = &H0004

Function GetQueryXML(strSPSQL)
    'Make Connection and StreamObject
    Dim cmd,record
    set cmd = server.CreateObject("ADODB.Command")
    Dim adoStream 
    set adoStream = server.CreateObject("ADODB.Stream")

    adoStream.Open

    'Make CommandObject with Properties
    Set Cmd.ActiveConnection = objConn
    Cmd.CommandType = adCmdStoredProc
    Cmd.CommandText = strSPSQL

    Cmd.Properties("Output Stream").Value = adoStream
    Cmd.Execute , ,1024 
    GetQueryXML = adoStream.ReadText
    adoStream.Close
    set adoStream = nothing
    set cmd = nothing
 
End Function


response.Write GetQueryXML("exec up_get_search_as_xml 'sukker',''")

Fejlen:
-----------------------------------------------------
Fejltype:
Microsoft OLE DB Provider for SQL Server (0x80040E14)
Der opstod en syntaksfejl eller adgangsfejl
/testapp/showreciept.asp, line 29


Og jeg HAR givet execute rights til min DB bruger.


Please help...jeg har en stram deadline :P