DE.Commands("Query").CommandText = s DE.Commands("Query").Execute Set DataGrid1.DataSource = DE DataGrid1.DataMember = "Query"
Set DataGrid2.DataSource = DataEnvironment1.Connection1.Execute(s)