vb6中调用oracle存储过程，求大神指教，急！急!急!!

存储过程
create or replace procedure proInsertPam(uName in varchar2,uPwd in varchar2,ref_user out SYS_REFCURSOR)
is
begin
insert into useres (username,password) values(uName,uPwd);
commit;
open ref_user for select * from useres;
end proInsertPam;
vb6中代码
objCmd.ActiveConnection = objCn
objCmd.CommandType = adCmdStoredProc
objCmd.CommandText = "proInsertPam"
Set prmUserName = objCmd.CreateParameter("uName", adVarChar, adParamInput, 10, strName)
objCmd.Parameters.Append prmUserName
Set prmPassword = objCmd.CreateParameter("uPwd", adVarChar, adParamInput, 10, strPwd)
objCmd.Parameters.Append prmPassword
Set pamRef = objCmd.CreateParameter("cv_results", DataTypeEnum.adCurrency, adParamOutput)
objCmd.Parameters.Append pamRef
Set objRst = objCmd.Execute
Set dbDataGrid.DataSource = objRst