come posso correggere questa istruzione?
Rs.Open "SELECT * FROM elenco AND Sommatotale WHERE data = '" & Combo1.Text & "'"


Set DataGrid1.DataSource = Rs
Set DataGrid2.DataSource = Rs