SET DB = CreateObject("ADODB.Connection")
DB.Open=ConnectionStr
SET cmdTemp=CreateObject("ADODB.command")
SET cmdTemp.ActiveConnection = DB
cmdTemp.CommandText="storedpr"
cmdTemp.CommandType=adCmdStoredProc
cmdTemp.Parameters.Append cmdTemp.CreateParameter ("p1",adVarChar,adParamInput)
cmdTemp.Parameters.Append cmdTemp.CreateParameter ("p2,adLongVarChar,adParamInput)
cmdTemp("p1").Value = "test insert"
cmdTemp("p2").Value = "test test insert"
cmdTemp.Execute
DB.Close()

ADODB.Parameters : Parameter object is improperly defined

Подскажите в чем дело!?!?!?!

If you specify a variable-length data type in the Type argument, you must either pass a Size argument or set the Size property of the Parameter object before appending it to the Parameters collection; otherwise, an error occurs.