Hi,

I have this code to show a report after inserting and deleting some records in the database, but the report is not updated when I show it for the first time.

Could anyone tell me why? Or another way to show the report?

Private Sub lga_Click()
Dim Data As String

Prepara_Lista_Geral Data ‘This is the procedure that runs a Sql statment and writes in a table in Access

CrystalReport1.ReportFileName = App.Path & "\lista de accionistas1.rpt"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.DiscardSavedData = True
CrystalReport1.Action = 1
End Sub