vb6 can execute own procedure but cannot execute package's procedure

[ClOuD_Za]

hi, all

I have a problem as describe on topic. please see my codes below ...

Dim CPw As New rdoQuery
    Set CPw.ActiveConnection = Cn

    QSQL = "{ CALL TEST(?) }"

    Set CPw = Cn.CreateQuery("", QSQL)
    CPw(0).Direction = rdParamOutput

    Set Rs = CPw.OpenResultset
    
    Prompt = "Return value from stored procedure is " & CPw(0) & "."
    Response = MsgBox(Prompt, , "Stored Procedure Result")

with this code. it was executed successfully.

Dim CPw As New rdoQuery
    Set CPw.ActiveConnection = Cn

    QSQL = "{ CALL REFTEST.GETMYVAR(?) }"

    Set CPw = Cn.CreateQuery("", QSQL)

    CPw(0).Direction = rdParamOutput <<<< ERROR

    Set Rs = CPw.OpenResultset
    
    Prompt = "Return value from stored procedure is " & CPw(0) & "."
    Response = MsgBox(Prompt, , "Stored Procedure Result")

but this code error : couldn't find item indicated by text. Following is my Package's procedure code ...

create or replace
package body reftest 
as 
Procedure GetMyVar(theValue IN OUT NUMBER)
Is
Begin
  theValue := 10;  
End;
end;

Please help ...