Ciao Seyen,
quando uso il DE per i Report utilizzo questo sistema (collaudato):
nel modulo del DataReport:
.... ...
With DataEnvironment1
If .rsCommandCOM1.State <> 0 Then
.rsCommandCOM1.Close
End If
End With
'Rinvia all'evento Terminate del DataEnvironment per chiudere la connessione:
Unload DataEnvironment1
Nel modulo del DE:
codice:
Private Sub DataEnvironment_Terminate()
'Chiude la connessione ed azzera i riferimenti:
With DataEnvironment1.Connection1
.Close
End With
Unload Me
End Sub
Naturalmente prima di Terminate c'è l'evento
codice:
Private Sub DataEnvironment_Initialize()
'Si connette con stringa di connessione ed attiva la connessione:
With DataEnvironment1.Connection1
.ConnectionString = DataConnessione
.Open
End With
End Sub