With stSQLXML
.Open , , adOpenStreamUnspecified
.Charset = "Unicode"
'set command text
.WriteText "<?xml version='1.0' ?>"
.WriteText "<root xmlns:sql='urn:schemas-microsoft-com:xml-sql'>"
.WriteText " <sql:header>"
.WriteText " <sql:param name='Input'>%</sql:param>"
.WriteText " <sql:param name='Output'>%</sql:param>"
.WriteText " </sql:header>"
.WriteText " <sql:query>"
.WriteText " exec [ForXML] @Input,@Output"
.WriteText " </sql:query>"
.WriteText "</root>"
.Position = 0
End With
objCommand.Dialect = "{5D531CB2-E6Ed-11D2-B252-00C04F681B71}"
' set the comm you are going to run.
Set objCommand.CommandStream = stSQLXML

objCommand.CommandType = adCmdText

objCommand.NamedParameters = True
Set objParam = objCommand.CreateParameter("@Input", adVarChar, adParamInput, 15, "kuku")
objCommand.Parameters.Append objParam
Set objParam = objCommand.CreateParameter("@Output", adVarChar, adParamOutput, 15)
objCommand.Parameters.Append objParam
objConnection.ConnectionString = ConString
objConnection.Open
Set objCommand.ActiveConnection = objConnection
' run the command
objCommand.Properties("Output Stream").Value = objXMLDoc
objCommand.Properties("Output Encoding").Value = "UTF-16"
Call objCommand.Execute(, , adExecuteStream)

И получаю Empty для Output параметра!!!
Что делать?