Как записать результат поиска в текстовый файл или загрузить его в таблицу на SUD или GUI?

Question

Я пытаюсь отобразить результат в таблице в графическом интерфейсе или SUD, который я получил при запросе к базе данных. Я сохраняю результат на объекте. При попытке показать в таблице с использованием существующего кода по какой-то причине он не работает, поэтому я думаю записать его в текстовый файл и прочитать его оттуда, как это делает существующий код.

GlobalDim("NEWT,CheckCalLimits,CalFileName,DefFileNm")
NEWT = CLng(NEWT)

Dim myConn
Dim myCommand
Dim RS

Const DB_CONNECT_STRING = "Provider=SQLOLEDB.1;Data Source=FWATRGSQLVCL2;Initial Catalog=calsample;user id ='sampleUser';password='sample@1'"

Set myConn = CreateObject("ADODB.Connection")
Set myCommand = CreateObject("ADODB.Command" )

myConn.Open DB_CONNECT_STRING
Set myCommand.ActiveConnection = myConn

myCommand.CommandText = "SELECT [heid],[zvalue],[limit],[type],[xchannel],[xvalue],[ychannel],[yvalue],[class],[descrip] FROM [calsimple].[dbo].[Req_Simpledata] where hwid= "&NEWT&""