如何将搜索结果写入文本文件或将其加载到SUD或GUI上的表中？

Question

我试图将结果显示在GUI或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&""