Ver originalWith DataReport3 Set .DataSource = Nothing .DataMember = "" Set .DataSource = RsImprimir.DataSourceEnd With