有哪位大虾试过用VB调用SAP的函数?求教一下.(高分求)

[cometome]

我想通过以下一个SAP的函数传参数到SAP:

接口函数ZPHONE_CREATE_SALESORDER
输入参数：SALESGROUP （char 3） 销售雇员号
ORDERTYPE （char 4）订单类型
TABLE 参数：ORDER_PARTNERS{
PARTN_ROLE（CHAR 2） 合作伙伴功能
PARTN_NUMB(CHAR 10) 客户号
}
TABLE 参数：ORDER_ITEMS销售凭证项目{
ITM_NUMBER（NUM6），销售单据项目，，，
MATERIAL（CHAR18）物料号码，，，，，，，，，，
TARGET_QTY（QUAN13）数量，，，，，，，，，，，，，，
EXCHG_RATE(DEC9)价格
}

我通过下面的语句去调用此函数,为什么到oTables(1, "PARTN_ROLE") = "AG"这一句会弹出"Bad Index"这样的错误?怎样才是正确的方法?
Set fncRFC = SAPFunction.Add("ZPHONE_CREATE_SALESORDER")
fncRFC.Exports("SALESGROUP") = "022"
fncRFC.Exports("ORDERTYPE") = "ZOR"
If fncRFC.call Then
Set oTables = fncRFC.Tables(1)
oTables(1, "PARTN_ROLE") = "AG"
oTables(1, "PARTN_NUMB") = "100080"
Set oTables = fncRFC.Tables(2)
oTables(1, "ITM_NUMBER") = "ITM_NUMBER"
oTables(1, "MATERIAL") = "AG"
oTables(1, "TARGET_QTY") = "ITM_NUMBER"
oTables(1, "EXCHG_RATE") = "AG"

End If

[crycoming]

sapFunctions.Connection = sapConnection
Set sapMaterialUpd = sapFunctions.Add("Z_SD_BAPI_SALES_DATA_UPD")
With sapMaterialUpd
'set exports
.Exports("PA_GLPUPDLEVEL") = "S"
.Exports("PA_VKORG") = "FI14"
'append table row
.Tables("IT_SALES_DATA_UPD").AppendRow
.Tables("IT_SALES_DATA_UPD")(1, "VKORG") = "FI14"
.Tables("IT_SALES_DATA_UPD")(1, "MATNR") = "W_3100"
.Tables("IT_SALES_DATA_UPD")(1, "DATBI") = "99991231"
.Tables("IT_SALES_DATA_UPD")(1, "DATAB") = "20041231"
.Tables("IT_SALES_DATA_UPD")(1, "KBETR") = "2222"
.Tables("IT_SALES_DATA_UPD")(1, "KONWA") = "EUR"
End With

'call the function module
If sapMaterialUpd.Call() = True Then
'do something with the return tables here...Else
Debug.Print sapMaterialUpd.Exception
End If