Passing Array Parameter to SQL Store procedure

Hi,

      I want to pass an array as a parameter in Code.Have used "SParam(Arrayobject)" but it showing error .How can i send array parameter in vba. herewith have pasted my code 

Private Sub Update1_OnFinish(Level As Integer, Updated As Integer, retval As Integer)

Dim xSQL As String
Dim MarkUp As String
Dim invtid As String
Dim batnbr As String
Dim status As String
Dim qty As Integer
Dim i As Integer

Dim ParamVal(10, 2) As String

If Level = 0 Then
Mem_handle = GetGridHandle("Spread1")
MsgBox mrowcnt(Mem_handle)
If Trim(GetObjectValue("cBatchHandling")) = "R" Then

Dim iretval As Integer
Dim iMaintFlg As Integer

iretval = MFirst(Mem_handle, iMaintFlg)
i = 0
While iretval = 0

invtid = Trim(GetObjectValue("cInvtId"))
batnbr = Trim(GetObjectValue("cBatNbrh"))
MarkUp = Trim(GetObjectValue("xuser11"))
qty = Trim(GetObjectValue("cQty"))

ParamVal(i, 0) = invtid
ParamVal(i, 1) = qty
ParamVal(i, 2) = MarkUp

i = i + 1

iretval = MNext(Mem_handle, iMaintFlg)

Wend

xSQL = "X_Transfers" & SParm(ParamVal) & SParm(batnbr) 
Call sql(X_Transfers, xSQL)
End If

End If

End Sub

my store procedure like :

CREATE TYPE Param_list AS TABLE (
invtid varchar(60),qty varchar(10),MarkUp varchar(10)
);
GO

Create Proc X_Transfers
@Param_list Param_list READONLY,@TransferBatnbr varchar(10)
as

select * from @Param_list 

please genius help me