Dim slt As String = CType(Session("slt"), String)
Dim table As String = CType(Session("table"), String)
Dim SQL As String = CType(Session("SQL"), String)
Dim str As String = "Provider=MSDAORA.1;data source=kksb;user id=kksb;password=kksb2007;"
Dim conn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(str)
Dim strSQL As String = " SELECT " & SQL & " FROM " & table & " WHERE " & slt
Dim da As comm As System.Data.OleDb.OleDbDataReader = New System.Data.OleDb.OleDbDataReader(strSQL,conn)
conn.Open()
Dim ds As New System.Data.OleDbSet()
GridView1.DataSource = ds
conn.Close()