<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
Public Source As DataView
Public DS As DataSet
Public GetSchemaChecked, GetDataChecked As Boolean
Sub Submit_Click(Sender As Object, E As EventArgs)
If (Page.IsPostBack)
Dim MyConnection As SqlConnection
Dim MyCommand As SqlDataAdapter
MyConnection = New SqlConnection(ConnectString.Value)
MyCommand = New SqlDataAdapter(MyText.Value, MyConnection)
DS = New DataSet()
MyCommand.Fill(DS, "Table")
Source = New DataView(DS.Tables(0))
GetSchemaChecked = GetSchema.Checked
GetDataChecked = GetData.Checked
MyDataGrid.DataSource=Source
MyDataGrid.DataBind()
End If
End Sub

