调用2个参数的存储过程！但是出错！

Question

Dim adoconn As New ADODB.Connection 'Connection 对象代表了打开与数据源的连接。
    Dim adocomm As New ADODB.Command 'Command 对象定义了将对数据源执行的指定命令。
    Dim rs1 As New ADODB.Recordset 'Command 对象定义了将对数据源执行的指定命令。
      
    adoconn.ConnectionString = Allconnect 'Adodc1为窗体中的ADO控件，并已成功连接数据库
    adoconn.Open
    Set adocomm.ActiveConnection = adoconn '指示指定的 Command对象当前所属的 Connection对象。
    
    Set parm_jobid = New ADODB.Parameter
    parm_jobid.Direction = adParamInput
    parm_jobid.Name = nf
    parm_jobid.Value = 7   '参数的值
    parm_jobid.Direction = adParamInput
    adocomm.Parameters.Append (parm_jobid)-----这里出错！
    Set parm_jobid1 = New ADODB.Parameter
    parm_jobid1.Direction = adParamInput
    parm_jobid.Name = yf
    parm_jobid1.Value = 12  '参数的值
    parm_jobid1.Direction = adParamInput
    adocomm.Parameters.Append (parm_jobid1) -----这里出错！
    adocomm.CommandText = "xsfy" '设置Command对象源。
    adocomm.CommandType = adCmdStoredProc '通知提供者CommandText属性有什么，它可能包括Command对象的源类型。设置这个属性优化了该命令的执行。
    Set rs1 = adocomm.Execute

Answer 1

With adocomm
        .Parameters.Append .CreateParameter("nf", adVarChar, adParamInput, 20, Year(Date))
        .Parameters.Append .CreateParameter("yf", adVarChar, adParamInput, 20, Year(Date))     '任务类型,2为成本核算
    End With 
    adocomm.CommandText = "xsfy" '设置Command对象源。
    adocomm.CommandType = adCmdStoredProc '通知提供者CommandText属性有什么，它可能包括Command对象的源类型。设置这个属性优化了该命令的执行。
    Set rs1 = adocomm.Execut