tabella1.Clear()
tabella2.Clear()
OleDbSelectCommand2.CommandText = ("select * from tabella1 where data='" & maschera.Data2.Text & "'  and locale='" & maschera.ComboBox1.Text & "'")

 OleDbSelectCommand3.CommandText = ("select * from tabella2 where data='" & maschera.Data2.Text & "'  and locale='" & maschera.ComboBox1.Text & "'")

OleDbDataAdapter2.Fill(tabella1, "tabella1")
OleDbDataAdapter3.Fill(tabella2, "tabella2")

        
CrystalReport1.SetDataSource(tabella1)

form2.CrystalReportViewer1.ReportSource = CrystalReport1