<small>Descobri qe tem uma opção no crystal report que ele não salva o banco de dados no relatorio que cada vez que voce le ele deveria reciclar mais esta dando um problema mais agora da run time error 20599 - cannot open Sql Server</small>
With Report ' Report
.Reset
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\programa\Orcamento.mdb;"
.Connect = ConnectionString
.ReportFileName = PastaDoSistemas + "\Relatorio\Orcamento Proficional.rpt"
.DiscardSavedData = True
.Destination = crptToWindow
.Action = 1
End With