Run-time error 40088, 40008

[hari_vb]

Hi
I am using RDO connection to get data from sybase 12.5. In VB 6.0 my code goes like this:

Dim cn As New rdoConnection
Dim rdoRS As rdoResultset
Dim rs, rs1 As rdoResultset

cn.Connect = "uid=R64037;pwd=***;server=TEST_SERVER;" _
    & "driver={SYBASE ASE ODBC Driver};NA=test.com,4500;database=test_database;" _
    & "DSN=test_dsn;"
    cn.CursorDriver = rdUseOdbc
cn.EstablishConnection rdDriverNoPrompt

SQL = "exec JP_FIND_STRING " & "'" & Text1.Text & "'"
Set rdoRS = cn.OpenResultset(SQL)
While Not rdoRS.EOF
    List1.AddItem (rdoRS.rdoColumns(0).Value)
rdoRS.MoveNext
Wend

While Executing the above code, I am getting the run-time error
40088 - No open Cursor or Cursor Closed (I am getting this always)
40008 - Invalid operation for forward only cursor (i am getting this occassionally)

Kindly suggest me the solution
Thanks in Advance
Regards,
J.Hari