Question : top 1 query data


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:


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

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

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.
Random Solutions  
programming4us programming4us