ارسال يك پارامتر رشته اي به يك پروسيجر ذخيره شده در SQL Server

[hashem_te]

در VB6 ميخواهم از طريق ADO يك پارامتر رشته اي به يك پروسيجر ذخيره شده در SQL Server كه داراي پارامتري از نوع varchar(6) است بفرستم ولي اين ارسال به شكل زير به درستي انجام نميشود و چيزي بر نميگرداند
راهنمايي كنيد
اگر نمونه كد يا برنامه اي كه درست كار كند داريد به ميل من بفرستيد

( ' Set Para = cmd.CreateParameter("C_Dev", adVarChar, adParamInput
'Set para = cmd.CreateParameter
cmd.Parameters.Append Para
"Para.Value = "003272
Set rst = cmd.Execute
ولي هيچ ركوردي بر نمي گرداند گويا
VB6
نوع پارامتر
adVarChar
را ساپورت نمي كند و
adBSTR
هم چيزي برنميگرداند
hashemi-te@esfahansteel.com
09132356511 هاشمي

[hashem_te]

طول فيلد را هنگام ايجاد پارامتر بايد مشخص ميكردم

() Private Sub AddUserBtn_Click
On Error Resume Next
Dim cmd As New ADODB.Command
Dim para As ADODB.Parameter
Dim rst As ADODB.Recordset
cmd.ActiveConnection = cnn
cmd.CommandType = adCmdStoredProc
"cmd.CommandText = "sp_addlogin
("Set para = cmd.CreateParameter("loginame", adVarChar, adParamInput, 128, "man
cmd.Parameters.Append para

_ cmd.Parameters.Append
("cmd.CreateParameter("passwd", adVarChar, adParamInput, 128, "1234

_ cmd.Parameters.Append
("cmd.CreateParameter("defdb", adVarChar, adParamInput, 128, "Pubs

Set rst = cmd.Execute
"If Err.Number = &H80040E14 Then MsgBox "User Already Exist
End Sub