[VB6] Errore per connessione dati aperta

[vr-claudio]

Ciao ragazzi,
scusate ma dategli un'occhiata e ditemi dove sto' sbagliando, sto finendo un programma di fattura, cè un form chiamato semplicemente Report dove all'apertura (nell'evento_Activate)
conteggio il numero e il totale in euro delle fatture dall'inizio dell'anno in questo modo:

Private Sub Form_Activate()
Call NumeroTotaleFatture
Dim db As ADODB.Connection
Dim S As ADODB.Recordset
Dim strCnn As String
Set db = New ADODB.Connection
strCnn = "" _
& "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\...\DB.mdb"
db.Open strCnn
Set S = New ADODB.Recordset
S.Open "SELECT SUM(TOTALEFATTURA) FROM DB_FATTURE WHERE DATA_FATTURA BETWEEN #" & TXT_DATA1.text & "# AND #" & TXT_DATA2.text & "# AND RIFERIMENTO LIKE'PAGATA%'", db
...
...

S.Close
db.Close
End Sub

Private Sub NumeroTotaleFatture()
Dim db As ADODB.Connection
Dim S As ADODB.Recordset
Dim strCnn As String
On Error Resume Next
Set db = New ADODB.Connection
strCnn = "" _
& "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\...\DB.mdb"
db.Open strCnn
Set S = New ADODB.Recordset
S.LockType = adLockOptimistic
S.Open "SELECT COUNT(*) FROM DB_FATTURE WHERE DATA_FATTURA BETWEEN #" & TXT_DATA1.text & "# AND #" & TXT_DATA2.text & "# AND RIFERIMENTO LIKE'PAGATA%'", db
TXT_NUMEROFATTURE.text = S.Fields(0)
S.Close
db.Close
End Sub

...e fin qui sembra tutto ok, ma è quando voglio fare delle ricerche con lo stesso codice e l'aiuto di un DataReport ho dei problemi, cioè alla chiusura del DR nel form Report mi si visualizzano di nuovo i dati iniziali nel Form_Activate

Sicuramente cè ancora aperto qualcosa ma non so' dove!
Spero di essermi spiegato abbastanza bene, grazie
vrclaudio

[gibra]

Scusa, mi sembra più che normale, se metti il codice nell'evento Form_Activate questo sarà eseguito ogni volta che il form viene attivato .

Non c'è nulla di strano...