求救！存储过程出错？

[hwrong200]

CREATE TABLE [dbo].[Ztest] (
[id] [int] IDENTITY (1, 1) NOT NULL ,
[price] [numeric](9, 2) NULL ,
[cost] [numeric](9, 2) NULL
) ON [PRIMARY]

CREATE PROCEDURE SP_Ztest_ADD
@price numeric(9,2),
@cost numeric(9,2)

AS
insert into Ztest(price,cost) values(@price,@cost)
GO
VB程序中调用上存传储过程
Dim cmd As New ADODB.Command
cmd.ActiveConnection = G_Con
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "SP_Ztest_ADD"
cmd.Parameters.Append cmd.CreateParameter("@price", adNumeric, adParamInput, 2, CDbl(Text1.Text))
cmd.Parameters.Append cmd.CreateParameter("@cost", adNumeric, adParamInput, 2, CDbl(Text2.Text))
cmd.Execute

运行提示出错：The precision is invalid
请问，出错原因是什么？如何解决？？

[yoki]

好像没错呀，是不是转换类型出错啊，再看看size设大些