Domanda :

"Adesso passo il RecordSet a due funzioni, la seconda, mi risponde che RecordCount è ancora = 13 ma non sputa fuori i records ... Se inverto le funzioni, succede la stessa cosa."

Codice :

codice:
AS400Rs.CursorLocation = adUseClient
AS400Rs.CursorType = adOpenStatic
AS400Rs.Source = "SELECT..." 
AS400Rs.Open
If (AS400Rs.RecordCount = 0) Then
AS400Rs.Close
Else
'---PDF
bAnswer = ExportPDF(AS400Rs, strRoot, "A")
'---EXCELL
bAnswer = ExportXLS(AS400Rs, strRoot, "A")


--- . --- . --- . --- . --- . --- . ---

Function ExportXLS(ByVal objRS As ADODB.Recordset, ByVal Root As String, ByVal bType As String) As Boolean
...
...
Set .DataControl1.Recordset = objRS
Entrambe le funzioni sono uguali una per XLS e una per PDF, ma la seconda che riceve il objRS, mi risponde un Report vuoto, al contrario se apro ogni volta l' RS entrambi i report sono ok ...

Suggerimenti?