ciao LMondi,
ti riporto quanto descritto da un tuo post precedente, per avere delle spiegazioni, in merito di come aggiornare un datareport, le mie perplessità nascono dal fatto ke usi Public Sub ke nel mio code [vb6] non sono presenti, quindi è possibile avere delle info di come operare?
Public Sub rptForm_Load()?
.rsCommandE1, forse è il nome ke assegni al Aggiungi Command??
RptContoE1??
questi sono i miei dubbi.
Cmq x aggiornarlo in tempo reale questo code si presta anke x vb6?

"Preso da un post precedente"
Il grave difetto di DataReport è quello di Non aggiornare i dati, ... almeno se non si usa qualche accorgimento!
Dunque per raggiungero lo scopo di visualizzare e stampare le modifiche che si apportano ai file si deve chiudere e riaprire la connessione. Ti posto questo esempio di codice in uso nei miei programmi.


code:--------------------------------------------------------------------------------Nel Modulo del DataEnvinment:
Private Sub DataEnvironment_Initialize()

'Si connette con stringa di connessione ed attiva la connessione:
With DataEnvironment1.ConnectionE1
.ConnectionString = DataConnessione
.Open
End With
End Sub
'---------------------------------------------
Private Sub DataEnvironment_Terminate()

'Chiude la connessione ed azzera i riferimenti:
With DataEnvironment1.ConnectionE1
.Close
End With

Unload Me
End Sub
--------------------------------------------------------------------------------



code:--------------------------------------------------------------------------------Nel modulo del DataReport:
'Visualizza e stampa il report:
Public Sub rptForm_Load()
On Error Resume Next

Load DataEnvironment1

'Verifica e se del caso Apre ed aggiorna il recorset:
With DataEnvironment1
If .rsCommandE1.State = 0 Then
.rsCommandE1.Open
.rsCommandE1.MoveFirst
End If
End With
.... .... ....
'Visualizza il Reportper la stampa:
'DataEnvironment1.rsCommandE1.Update
RptContoE1.Refresh
RptContoE1.Show vbModal

'Chiude il recorset ed annulla la connessione:
With DataEnvironment1
If .rsCommandE1.State <> 0 Then
.rsCommandE1.Close
End If
End With

'Rinvia all'evento Terminate del DataEnvironment
per chiudere la connessione:
Unload DataEnvironment1
End Sub
--------------------------------------------------------------------------------
Spero che ti sia utile, a questa soluzione ci sono arrivato dopo vari tentativi, così tiene conto delle variazioni salvate nel db.

Ciao