Hello Guys,
I created a procedure in VB that loads all returned values from a query into a combo box.

Here in my VB Code.

Code:
Public OraSession           As Object
Public OraDatabase         As Object
Public OraDynaset           As Object

Public Sub LoadComboBox(vComboBox As ComboBox)

    Set OraSession = CreateObject("OracleInProcServer.XOraSession")
    Set OraDatabase = OraSession.DBOpenDatabase(vDatabase, _
                                                vUserSchema & "/" & _
                                                vPassword, 0&)
Dim AllFeeders  As Variant

    With OraDatabase
        .Parameters.Add "FEEDERS", Empty, ORAPARM_OUTPUT

   '-- Error occurs here
   '-- Error Number : 438
   '-- Error Description : Object doesn't support this property or method
        .Parameters("FEEDERS").Server_Type = ORATYPE_VARRAY

        .ExecuteSQL ("BEGIN FEEDERS.ALLFEEDERS (:FEEDERS);END;")
        AllFeeders = .Parameters("FEEDERS").Value
    End With
End Sub
This Is My PL/SQL Code

Code:
CREATE OR REPLACE PACKAGE FEEDERS
AS 

 	TYPE NUMARRAY IS TABLE OF NUMBER 
                     INDEX BY BINARY_INTEGER;
	TYPE VCHAR2ARRAY IS TABLE OF VARCHAR2(10) 
                     INDEX BYBINARY_INTEGER;

	PROCEDURE ALLFEEDERS (ArraySize IN  NUMBER,
                                                vInArray  IN  NUMARRAY,
                                                vOutArray OUT VCHAR2ARRAY);
END FEEDERS;
/

CREATE OR REPLACE PACKAGE BODY FEEDERS
AS 

PROCEDURE ALLFEEDERS (ArraySize	IN NUMBER, 
                                   vInArray IN NUMARRAY, 
                                   vOutArray OUT VCHAR2ARRAY)
IS
BEGIN
	FOR I IN 1..ArraySize LOOP
		SELECT 	FEEDNAME
		INTO   	vOutArray(I)
		FROM	FEEDER_CODES
		WHERE	FEEDERINDEX = vInArray(I);
	END LOOP;		
END ALLFEEDERS;

END FEEDERS;
Does Anyone knows how to do this right?