Dim ds As New System.Data.DataSet()
Dim table As New System.Data.DataTable
table.Columns.Add("sno", System.Type.GetType("System.Int32"))
table.Columns.Add("sname", System.Type.GetType("System.String"))
table.Columns.Add("fee", System.Type.GetType("System.Int32"))
table.Rows.Add(1, "", 1)
table.Rows.Add(2, "ad", 9)
table.Rows.Add(3, "wre", 90)
ds.Tables.Add(table)
For i As Int16 = 0 To ds.Tables(0).Columns.Count - 1
Response.Write(table.Columns(i).DataType())
Next