My script:
Dim myStream, myConnection, myCommand
Set myStream = CreateObject("ADODB.Stream")
Set myConnection = CreateObject("ADODB.Connection")
Set myCommand = CreateObject("ADODB.Command")
'
myConnection.Open "Provider=SQLOLEDB;Integrated Security=SSPI;" & _
"Persist Security Info=False;Initial Catalog=DSIPAR;Data Source=.\DSIDATA"
myCommand.ActiveConnection = myConnection
myCommand.CommandText = "SELECT itemsgt, item FROM NIFItem"
myStream.Open
myCommand.Properties("Output Stream") = myStream
myCommand.Execute , , adExecuteStream
myStream.Position = 0
myStream.Charset = "ISO-8859-1"
Dim strxml
strxml = myStream.ReadText
MsgBox (strxml)
Dim myStream, myConnection, myComm
