QTP Database conenction and parameterization of the values

[siri]

Hi sridhar ,

I modified the code just trying to get the meanings of the table .

Here the loop got no ending it is showing the !st values as America .It is an unending loop.

I have 5 values Americas,Europe etc but it is showing me Americas only all the time and it is an unending loop .

I believe the record count is not working

Please do help me by viewing the code

Code:

Set conn=CreateObject("ADODB.Connection")
    conn.Open("DRIVER={Oracle in OraHome92};SERVER=DEVMITG;UID=ITL_ASSET;PWD=ITL_ASSET;DBQ=DEVMITG")

   Set rs = CreateObject("ADODB.recordset")
sql = "Select Code, Meaning From TB_AMS052_Codes Where Code_Nam = 'Pole' "

      rs.Open sql,conn
  
'            Recordcount = rs.Recordcount

                  While(NOT Rs.EOF)
                Msgbox rs.Fields("Meaning")

                    For i=1 to Recordcount
'                     rs.MoveNext
'    

              Next
wend

   conn.close
  rs.close