在执行存储过程中报“类型名称无效”！

[xiajianfeng]

我在VB中调用存储过程sp_ModOpDetSub
VB代码：
Dim cmd As New ADODB.Command
Dim param As New ADODB.Parameter
Dim retval As Variant

cmd.ActiveConnection = DBcn
cmd.CommandText = "sp_ModOpDetSub"
cmd.CommandType = adCmdStoredProc

'输入参数
Set param = cmd.CreateParameter("TcBarcode", adBigInt, adParamInput, 8, lSequenceId)
cmd.Parameters.Append param

Set param = cmd.CreateParameter("Type", adChar, adParamInput, 3, "Del")
cmd.Parameters.Append param

'输出参数
Set param = cmd.CreateParameter("DispartExist", adBoolean, adParamOutput, 1, DispartExist)
cmd.Parameters.Append param

Set param = cmd.CreateParameter("DispartStatus", adVarChar, adParamOutput, 3, DispartStatus)
cmd.Parameters.Append param

//此处报错
Set retval = cmd.Execute()

......

需要说明的是：存储过程没问题，
但比较奇怪的是：在公司的开发环境中没有问题，但在客户那有的机器也没问题，有的机器会报“类型名称无效”的错误提示，经过判断，是Set retval = cmd.Execute()这段代码有问题，真不明白为什么，也许不该在SQL版问，但这的兄弟都很热心，还是请大家帮忙看看！