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 ?