Помогите с запросом к базе на Oracle - VB

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

Помогите выбрать все строки и записать в файл, выбирает только первую строку
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
Спасибо

Решение задачи: «Помогите с запросом к базе на Oracle»

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

                            ...
snpData.<font color="blue">Open</font> strSQL,dbMyDBConnection
<font color="blue">Do</font> <font color="blue">While</font> <font color="blue">Not</font> snpData.EOF
file.WriteLine(snpData(<font color="teal">"USER0"</font>))
snpData.MoveNext
<font color="blue">Loop</font>
...
                        