Item cannot be found in the collection corresponding to the requested name or ordinal in qtp

Question

in a certain scenario, i was trying to use the select query inside QTP (More specifically QTP Using VB script) But the code is not working.

Option Explicit
Dim con,rs
Set con=createobject("adodb.connection")
Set rs=createobject("adodb.recordset")

con.open "Driver={Microsoft ODBC for Oracle};Server=myServer; Uid=USERNAME;Pwd=PASSWORD;"
rs.open "SELECT B.STATUS FROM STUDENT B WHERE B.BATCHCODE='FIRST' ",con

Do while not rs.eof
DataTable.GlobalSheet.AddParameter.RawValue = rs.fields("v1")
rs.movenext
Loop

Release objects
Set rs= nothing
Set con= nothing

Please help me knowing which section of the code is getting script result fail.

Solution

"Item cannot be found in the collection corresponding to the requested name" - this error comes when the field is not present in the recordset which you are trying to refer to!

rs will not have "v1" and it has only "STATUS".

  rs.fields("v1")

So, it should be

rs.fields("STATUS")