Recordset inaspettatamente vuoto

[magheggio]

Salve a tutti.

Ho un problema relativo ai dati di ritorno da una query per VB6.
Ma andiamo con ordine:
Il sistema operativo è Windows XP con SP2, ho MDAC 2.8, la mia applicazione si connette ad un DB Oracle 8 con i driver microsoft. All'interno dell'applicazione costruisco una query, se la prelevo durante l'esecuzione da VS e la lancio in TOAD mi restituisce tre righe, mentre nella normale esecuzione della stessa il recordset risulta vuoto... altre query nella stessa applicazione vanno benissimo...
ho il sospetto che il mio ambiente sia corrotto, magari si perde quel riferimento, ma il perchè e la soluzione mi sfuggono...
aggiungo qualche riga di codice di esempio:

Dim strSqlAng As String
Dim RecAppo As Adodb.Recordset
set RecAppo = Nothing

cotruisco la stringa SQL e la metto in strSqlAng

Set RecAppo = New ADODB.Recordset
RecAppo.Open strSqlAng, g_MyConn, , , adCmdText

qualcuno ha qualche suggerimento?

Ho verificato il codice su un progetto nuovo 'vergine' e in questo caso funziona correttamente.

Cosa si può essere sputtanato?
Si può in qualche modo resettare l'ambiente del Progetto che si è corrotto?

Grazie in Anticipo
Magheggio

[oregon]

Qual e' la query? Ci sono delle selezioni con la WHERE e delle date?

[magheggio]

la query è questa:

strSqlAng = ""
strSqlAng = strSqlAng & "SELECT pigr.GUID, pigr.PUNTEGGIO_REGIONALE, pigr.COD_COMPARTO, "
strSqlAng = strSqlAng & "COSTO_PROGETTO(P.GUID)*PERC_FINANZ_PUBBLICO/100 richiesta, "
strSqlAng = strSqlAng & "DISPONIBILITA_INIZIALE_GRAD(P.GUID, NULL, NULL) + nvl(G.FINANZ_RESIDUO_PIT, 0) - nvl(TOT_FINANZ_PARZIALE_REG(4), 0) DISPONIBILE, "
strSqlAng = strSqlAng & "p.cod_misura, PiGR.DATA_NASCITA_TITOLARE, pigr.POS_GRAD "
strSqlAng = strSqlAng & "From progetto p, graduatoria_regionale g, progetto_in_grad_reg pigr "
strSqlAng = strSqlAng & "Where p.guid=pigr.guid "
strSqlAng = strSqlAng & "and G.COD_GRADUATORIA=PIGR.COD_GRADUATORIA "
strSqlAng = strSqlAng & "AND nvl(pigr.STATO_IN_GRADUATORIA, 0) not in('2','3','10','12','15') "
strSqlAng = strSqlAng & "and g.cod_graduatoria = 4 "
strSqlAng = strSqlAng & "ORDER BY pigr.COD_COMPARTO,POS_GRAD"

Magheggio