فرستادن پارامتر از vb به sql

[Roza_tsc]

من کار با پارامترهای sql را تازه شروع کردم یک SP توی SQL نوشتم که باید یک مقدار از VB بهش پاس بدم اما ایراد میگیره....
این SP من هست :

CREATE PROCEDURE CustOrdersOrders @idgh varchar(50)
AS
SELECT *
FROM ghabz1
WHERE idgh >= @idgh
ORDER BY idgh
GO

و این هم برنامه من در VB که پارامتر رو پاس دادم :
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset
Dim prm As New ADODB.Parameter
Dim strcon As String
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=anbar"
cmd.ActiveConnection = cnn
cmd.CommandText = "CustOrdersOrders"
cmd.CommandType = adCmdStoredProc
Set prm = cmd.CreateParameter("idgh", adVarChar, adParamInput, 50)
cmd.Parameters.Append "120", cmd
cmd.Parameters("idgh").Value = Text1.Text
Set rst = cmd.Execute
cnn.Close
Set rst = Nothing
Set cmd = Nothing
Set cnn = Nothing

و error هم این هست :
Procedure 'CustOrdersOrders' expects parameter '@idgh', wich was not supplied
اشکال من کجاست؟؟؟

[Roza_tsc]

ممنون از این همه جوابی که به این پست دادید بسیار استفاده کردیم!