Mega Help!

[Black]

Da Visual Basic 6 devo interrogare una stored procedure in Oracle 8.
Questa ha alcuni campi in Input e uno in Output di tipo Type Record,

Uso ADO 2.7 ma non riesco a interfacciarmi :(

Ecco il codice che uso in VB:


Dim Rs As ADODB.Recordset
Dim Cn As ADODB.Connection
Dim conn As String
Dim QSQL As String
Dim CPw2 As ADODB.Command

Set Cn = New ADODB.Connection
With Cn
.ConnectionString = strConnectString
.CursorLocation = adUseClient
.Open
End With

QSQL = "{call bisGaranzie_Polizza.Elenco_Garanzie_Polizza(?,?,?,?,?,?,?,?,?,?,?,{resultset 9, PLSQL_TABLE})}"
Set CPw2 = New ADODB.Command

With CPw2
Set .ActiveConnection = Cn
.CommandText = QSQL
.CommandType = adCmdText
.Parameters.Append .CreateParameter(, adBSTR, adParamInput)
.Parameters.Append .CreateParameter(, adBSTR, adParamInput)
.Parameters.Append .CreateParameter(, adBSTR, adParamInput)
.Parameters.Append .CreateParameter(, adDate, adParamInput)
.Parameters.Append .CreateParameter(, adDate, adParamInput)
.Parameters.Append .CreateParameter(, adBSTR, adParamInput)
.Parameters.Append .CreateParameter(, adNumeric, adParamInput)
.Parameters.Append .CreateParameter(, adNumeric, adParamInput)
.Parameters.Append .CreateParameter(, adDate, adParamInput)
.Parameters.Append .CreateParameter(, adDate, adParamInput)
.Parameters.Append .CreateParameter(, adDate, adParamInput)
End With

Set Rs = New ADODB.Recordset
With Rs
.CursorType = adOpenStatic
.LockType = adLockReadOnly
End With

Set Rs.Source = CPw2

CPw2(0) = sTesteCodComp
CPw2(1) = sTesteCSire
CPw2(2) = sTesteNordSir
CPw2(3) = CDate(sTesteDataEffe)
CPw2(4) = CDate(sPolizzeDataScad)
CPw2(5) = sPolizzeIndicizPolizze
CPw2(6) = nTesteProgressivo
CPw2(7) = nTesteProgrFam
CPw2(8) = CDate(sParametriDataOsservazione)
CPw2(9) = CDate(sTesteDataIngresso)
CPw2(10) = CDate(sTesteDataUscita)

Rs.Open
Rs.Close



la stored procedure in Oracle è

PROCEDURE Elenco_Garanzie_Polizza2 (
IN_ccomp in varchar2,
IN_csire in varchar2,
IN_nordsir in varchar2,
IN_dataeffe in date,
IN_datascad in date,
IN_INDICIZ IN VARCHAR2,
IN_assicurato in number,
IN_famiglia in number,
IN_data_osservazione in date,
IN_INIZIO_ASS IN DATE,
IN_FINE_ASS IN DATE,
PLSQL_TABLE OUT TAB_GARANZIE
)


dove TAB_GARANZIE è di tipo record (TYPE)

Qualcuno gentilmente può aiutarmi dandomi qualche esempio concreto? :(