Помогите выбрать все строки и записать в файл, выбирает только первую строку

Dim strSQL
Dim strUsername
Dim strPassword
Dim strDataSource
Dim snpData
Dim dbMyDBConnection
Dim FSO, file


set FSO=CreateObject("Scripting.FileSystemObject")
set file=FSO.CreateTextFile("C:\test.txt")

Set snpData = CreateObject("ADODB.Recordset")
Set dbMyDBConnection = CreateObject("ADODB.Connection")
strDataSource = "****"
strUsername = "***"
strPassword = "****"

dbMyDBConnection.ConnectionString = "Provider=MSDAORA.1;Data Source=" & strDataSource & ";User ID=" & strUsername & ";Password=" & strPassword & ";"
dbMyDBConnection.Open

strSQL = "select DB,USER0 from SUN.A_PO001"

snpData.Open strSQL,dbMyDBConnection

file.WriteLine(snpData("USER0"))

snpData.Close
dbMyDBConnection.Close
file.Close

Set snpData = Nothing
Set dbMyDBConnection = Nothing


Спасибо

Спасибо, Konst_One , твой вариант работает