QTP Database conenction and parameterization of the values

[siri]

I have removed

this is my modified script
still it is showing me as americas only whe n i catch the meaning it is nto showing me the next meanin g

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

                                                            rs.Close
                                                            conn.Close