VB6 给 SQL 存储过程中的变量赋值问题！！

各位大神
      小弟遇到一个问题，求指点。
     在SQL SERVER中 写了一个存储过程，其中有两个变量，@pro_xrcode 和 @pro_quantity 存储过程如下：
ALTER       PROCEDURE Proc_restock
 AS
declare @pro_xrcode varchar(15)
declare @pro_quantity int
update tb_stock
set quantity=quantity+@pro_quantity
where xrcode=@pro_xrcode
过程语法没问题，而且在SQL中给变量赋值后正常运行，现在有一个问题，我要在VB语句中来操作这个 存储过程 ， 不知道该如何给其中的两个变量赋值，比如 @pro_xrcode = text1.text 类似的 求大虾指点！谢谢！
以下是部分语句，试了很多都不成功…………

Dim cnn As ADODB.Connection
Dim Recommand As
Dim Para As ADODB.Parameter
Dim Rs As ADODB.Recordset
Set cnn = New ADODB.Connection
Set Recommand = New
Set Rs = New ADODB.Recordset
cnn.Open "XXXX"'SQL连接语句
With Recommand
    .ActiveConnection = cnn
    .CommandType = adCmdStoredProc
    .CommandText = "Proc_restock" '存储过程名字
    Set Rs = .Execute()
End With