Результат SQL запроса показать в блокноте - VB

Формулировка задачи:

Не подскажете как можно результат запроса

Select А From T

показать в блокноте? Т.е. скриптом открыть блокнот а потом вставить туда результат запроса?

Option Explicit
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad "
WshShell.AppActivate "notepad"

Решение задачи: «Результат SQL запроса показать в блокноте»

textual
                            Листинг программы 
                        

                            Dim Fso, Text, WshShell, b
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Text = Fso.CreateTextFile("d:\testfile3.txt", True)
Set WshShell = WScript.CreateObject("WScript.Shell")
b = RecordsToString("SELECT DISTINCT TOP 100 TPI FROM qdfDamage WHERE ServiceID IS NOT NULL AND ServiceID = <serviceid> AND ID<><id> AND TPI > '' ORDER BY TPI "</id></serviceid>, ",", ";")
Text.Write "Всем"
Text.WriteLine " привет"
Text.WriteBlankLines 1
Text.WriteLine "Привет"
Text.WriteLine b
Text.WriteLine b
Text.Close
WshShell.CurrentDirectory="d:\testfile3.txt"
WshShell.Run "d:\testfile3.txt"

                        