Question : top 1 query data

hi,

i am getting the following error:

ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

using the below code:

allaccountlist=split(submittedaccountNumber,"|")
maxcounter=ubound(allaccountlist)

whereclause=" where RDOUT_AN in ('" & allaccountlist(0) & "'"
FOR counter=1 TO maxcounter
   thisaccount=allaccountlist(counter)
   if thisaccount = "" then
   else
               whereclause=whereclause & ", '" & thisaccount & "'"
   end if
NEXT
whereclause=whereclause&")"

strQueryCurrentUTR = "SELECT RDOUT_XSI, RDOUT_XD FROM RDOUT "&whereclause&" and RDOUT_BI ='"&Session("bankcode")&"' order by RDOUT_D desc, RDOUT_T desc"

'--- query execution
Set oRsCurrentUTR = objConn.Execute( strQueryCurrentUTR )

Dim i
for i=1 to 1
   xmldata = oRsCurrentUTR.Fields("RDOUT_XD").Value
       xmlstyle = oRsCurrentUTR.Fields("RDOUT_XSI").Value
next

i am doing this query to get the top 1 data. what could be here wrong. is there a best and a more reliable way to get the top 1 data?

Answer : top 1 query data

I found another solution with bginfo there you can set an background picture too.