oracle 10g db connection

[tirumal]

hi
below coding is executing but no result.
I m using qtp10.00 version and oracle 10g enterprise version

Code:

On error resume next
Dim cn,rs
Set cn= createobject("ADODB.Connection")
Set rs= createobject("ADODB.Recordset")
cn.Open "provider= ORAOLEDB ; server= orcl ; database=ORCL ; userid = scott ; password = tiger"
rs.Open "select * from emp " , cn

While rs.EOF <> True
print rs("empname")
rs.MoveNext
Wend
rs.Close
cn.Close