Automation error, Invalid OLEVERB structure

[phreaker]

This is the code calling the service:
=================================================
Dim ws As New clsws_Service1
Dim basket_array(0) As Variant
Dim stock_array(0) As Variant

Set stock_array(0) = New struct_Stock
stock_array(0).a = "A"
stock_array(0).b = "B"
stock_array(0).c = "C"

Set basket_array(0) = New struct_Basket
basket_array(0).Stock = stock_array
basket_array(0).d = "D"
basket_array(0).e = "E"

ws.wsm_validateBasket (basket_array)
=================================================
Here is the interface for the method in the service I'm calling:
=================================================
Public Function wsm_validateBasket(ByVal ar_basket As Variant) As
Variant
' "wsm_validateBasket" is an array with
elements defined as struct_Basket
' "ar_basket" is an array with elements defined
as struct_Basket
' See Complex Types: Arrays in Web Service
References Tool 2.0 Help
' for details on implementing arrays.


On Error GoTo wsm_validateBasketTrap
wsm_validateBasket = sc_Service1.validateBasket(ar_basket)

Exit Function
=================================================


So the object that I am passing to the webservice is an array of
baskets, and inside element 0, there is a stock array (struct_Basket
contains a member Stock, which is variant). This all looks right to
me, but I get an OLEVERB error when making the webservice call. The
error doesn't provide any other information, so I'm lost at this
moment. Any ideas?


Thanks,
David