Not enough storage is available to complete this operation error

[caranjo]

Hi I have the following code:

Function RunFODBPackage(ByVal SQLString As String, ByVal BindVars As String) As ADODB.Recordset
'###############################################################################
'   Description : XXX
'
'   Return      : An ADO record set.
'###############################################################################
 
Dim lrs As ADODB.Recordset
Dim cmd As ADODB.Command
Dim stream As ADODB.stream
Dim streamOut As ADODB.stream
    If basADO_Tools.OpenDBConn(gconnfodb, basGlobal.GetConnectionString("RESEARCH")) Then
        
        'Retrieve the file and update the parameter value
        Set stream = New ADODB.stream
        stream.Charset = "iso-8859-1"
        stream.Type = adTypeText
        stream.Open
        
        Set streamOut = New ADODB.stream
        streamOut.Charset = "iso-8859-1"
        streamOut.Type = adTypeText
        streamOut.Open
 
        'stream.WriteText BindVars, adWriteLine
        stream.LoadFromFile ("c:\BindVars.xml")
        
 
        Set cmd = New ADODB.Command
        gconnfodb.CursorLocation = adUseServer
        With cmd
             Set .ActiveConnection = gconnfodb
            .Properties("SPPrmsLOB") = True
            .CommandText = "PK_XML_UTILITIES.P_GET_XML"
            .CommandType = adCmdStoredProc
            .Parameters.Append cmd.CreateParameter("PV_QUERY", adVarChar, adParamInput, 8000, SQLString)
            .Parameters.Append cmd.CreateParameter("PV_XSLT_FILENAME", adVarChar, adParamInput, 255)
            .Parameters.Append cmd.CreateParameter("PC_XML", adLongVarChar, adParamOutput, 900000000)
            .Parameters.Append cmd.CreateParameter("PC_BINDS_XML", adLongVarChar, adParamInput, stream.Size + 1, stream.ReadText)
            .Execute
        End With
        Set RunFODBPackage = lrs
    End If
End Function

The error occurs when the line ".Execute" runs. Does anybody know how to get around this problem?

Thanks in advance