红米3信号怎么样:VB调用存储过程的问题，各位高手过来帮帮忙

SQL语句：
alter procedure feeoper
@inputlabno varchar(50),
@inputoperfee int,
@inputtime datetime
as
declare
@ffee as int,
@cfee as int
set @ffee= (select c_fee from stu_oper where lab_no=@inputlabno)
set @cfee=@ffee+@inputoperfee
insert into stu_oper
values(@inputlabno,@ffee,@inputoperfee,@cfee,@inputtime)
VB代码：
Private Sub Command1_Click()
Dim inputlabno As String
Dim inputoperfee As Integer
Dim inputtime As Date
inputtime = Date
inputlabno = Text1.Text
inputoperfee = Text2.Text
Dim cmd As ADODB.Command
Dim param1 As ADODB.Parameter
Dim param2 As ADODB.Parameter
Set cmd = New Command
cmd.ActiveConnection = cn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "feeoper"
Set param1 = New ADODB.Parameter
Set param1 = cmd.CreateParameter("inputstuno", adVarChar, adParamInput, 50, inputlabno)
cmd.Parameters.Append param1
Set param2 = New ADODB.Parameter
Set param2 = cmd.CreateParameter("inputoperfee", adInteger, adParamInput, 50, inputoperfee)
cmd.Parameters.Append param2
Set param3 = New ADODB.Parameter
Set param3 = cmd.CreateParameter("inputtime", adDate, adParamInput, 50, inputtime)
cmd.Parameters.Append param3
Set rs = cmd.Execute
End Sub
运行后提示没有执行可特选性，不理解这个错误，望各位高手帮帮忙