vb调用oracle存储过程

---------------VB程序------------------------
Private Sub AddTimePay() '添加计时工资类型

    '初始化
    Dim cmd As New ADODB.Command
    Dim prm As ADODB.Parameter
    Dim wrong As Integer
    cmd.ActiveConnection = conn
   
    '调用存储过程  CommandType调用类型adCmdStoredProc表示过程
    cmd.CommandType = adCmdStoredProc
    '存储过程名  CommandText调用的名字(过程和表附在下面了) 
    cmd.CommandText = "QUEEN.add_clockpaymount"
    '传入参数  先调用函数newnum(在下面另附)    CreateParameter(传入参数名,类型,输入或输出,大小,值)
    Newnum
    Set prm = cmd.CreateParameter("v_id", adChar, adParamInput, 20, num)
    cmd.Parameters.Append prm

    Set prm = cmd.CreateParameter("v_jname", adChar, adParamInput, 20, txtName.Text)
    cmd.Parameters.Append prm

    Set prm = cmd.CreateParameter("v_unitprice", adChar, adParamInput, 20, txtPrice.Text)
    cmd.Parameters.Append prm
    
    Set prm = cmd.CreateParameter("v_error", adInteger, adParamOutput, 20, wrong)
    cmd.Parameters.Append prm
    
    '执行
    cmd.Execute
    wrong = cmd("v_error")