Stored procedures 参数对象定义不正确。提供了不一致或不完整的信息。（varbinary（max））

我将此代码用于存储过程。我在@vbin\u文档中收到错误

Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open ConnectionString_ 
Set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = objConnection 
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "[Documents_Add]"
cmd.parameters.append cmd.createParameter("@str_NameByFacility",    adVarChar, adParamInput, 25, NameByFacility)
cmd.parameters.append cmd.createParameter("@str_ScanCode",          adVarChar, adParamInput, 70, ScanCode)
cmd.parameters.append cmd.createParameter("@vbin_Document",             adVarBinary, adParamInput, -1, Document)
cmd.parameters.append cmd.createParameter("@str_DocumentType",          adVarChar, adParamInput, 100, DocumentType)
cmd.parameters.append cmd.createParameter("@str_NodeName",          adVarChar, adParamInput, 100, NodeName)
cmd.parameters.append cmd.createParameter("@str_ApplicationName",   adVarChar, adParamInput, 100, ApplicationName)
cmd.parameters.append cmd.createParameter("@str_UserName",          adVarChar, adParamInput, 100, UserName)
cmd.parameters.append cmd.createParameter("@bit_isDone",            adInteger, adParamReturnValue)
cmd.parameters.append cmd.createParameter("@int_ErrorCode",         adInteger, adParamReturnValue)
cmd.parameters.append cmd.createParameter("@bint_ErrorID",          adInteger, adParamReturnValue)
cmd.execute