follow up question - conditionals within loops

[yayawatson]

The reason I asked about writing conditional statements within a do until...loop is because I have a do until..loop where the conditional part of the loop doesn't work. Here is the code:

do until rs.eof
'Set the variables
iret = iim.iimSet("-var_case", rs.fields(0))
'Run the macro
iret = iim.iimPlay("pacersearch&quot
iret = iim.iimGetLastMessage()
if iret = "Chapter 13" then
iret = iim.iimPlay("pacercase&quot
Dim data1
Dim s
data1 = iim.iimGetLastMessage() s = data1
objOutputFile.WriteLine(s)
End If
rs.movenext
loop

Do you know why it won't work? Thanks!

 

[spazman]

try Do While Not RS.EOF