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

در 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
هم چيزي برنميگرداند
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
09132356511 هاشمي

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

() 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