Grazie per l'interessamento provando e riprovando sono riuscito ad aprirlo senza errori. Il problema ora è un altro. Ho aggiunto sezioni al datareport e quando apro il report filtrato mi da il seguente errore: "report section do not match data source".
Il db è office 365 2016
il codice scritti:
Private Sub DataEnviroment1_Initialize()
dim Sql
if not DataEnviroment1.Connection1 is Nothin Then
if DataEnviroment1.Connection1 .State=adStateOpen Then
DataEnviroment1.Connection1.Close
End if
End if
DataEnviroment1.Connection1.ConnectionString= "provider = Microsoft .Jet.OLDB.4.0; Data Source = "& App.path & "\miodb.mdb; Persist Security info=false"
Sql="Select .....Where..."
DataEnviroment1.rsCommand1.Open (Sql)
End Sub
Poi nell'evento click del Pulsante Stampa ho scritto: DataReport1.Show