vb当前操作中使用了错误类型的值求助

[wcydna]

用VB开发的代码如下：是一个查询页面
Private Sub call_proc(ByVal num As String, ByVal cname As String, ByVal point As Integer)
Dim cnum As String
Dim in_xh, in_kch, in_cj '存储过程执行参数

'根据课程名查询课程号
sqlcmd.CommandType = adCmdUnknown
sqlcmd.CommandText = "Select kch from kcb where kcm='" + cname + "'"
Set SqlRes = sqlcmd.Execute
If Not SqlRes.EOF Then
cnum = SqlRes("kch")
End If
If num <> "" And cnum <> "" And IsNumeric(point) = True Then
sqlcmd.CommandText = "Cj_Data"
sqlcmd.CommandType = adCmdStoredProc
'追加参数法调用存储过程
Set in_xh = sqlcmd.CreateParameter("in_xh", adChar, adParamInput, 6)
sqlcmd.Parameters.Append (in_xh)
Set in_kch = sqlcmd.CreateParameter("in_kch", adChar, adParamInput, 3)
sqlcmd.Parameters.Append (in_kch)
Set in_cj = sqlcmd.CreateParameter("in_cj", adInteger, adParamInput, 2)
sqlcmd.Parameters.Append (in_cj)
'参数赋值
sqlcmd("in_xh") = num
sqlcmd("in_kch") = cnum
sqlcmd("in_cj") = point
sqlcmd.Execute
'删除参数
sqlcmd.Parameters.delete ("in_XH")
sqlcmd.Parameters.delete ("in_kch")这里这句话出错
sqlcmd.Parameters.delete ("in_cj")
'刷新cjADO空间
cjADO.RecordSource = "select * from XS_KC_CJ where XH='" + num + "'"
cjADO.Refresh
Else
MsgBox ("请输入正确的成绩信息")
End If

要怎么改啊，前面定义的类型也没错啊