Ola  Li neste forum uma dica para versões mais antigas, porém este código não funcionou comigo,  acredito que seja por causa da versao do crytal 11  ======================================= Set rs = db.OpenRecordset(Sql) Set Data1.Recordset = rs    Set Report = New CRAXDRT.Application Set Rpt = Report.OpenReport(App.Path & "\aves2.rpt") If (Rpt.HasSavedData) Then Rpt.DiscardSavedData Rpt.Database.SetDataSource rs, 3 =======================================  queria poder alterar um sql de um relatório que já tenha sido definido dentro do relatório,  possível nesta versão ?