Sample code to use

Dim mycn As SqlConnection

Dim myda As SqlDataAdapter

Dim ds As DataSet

mycn = New SqlConnection("server = localhost;uid=sa;password=;database=northwind")

myda = New SqlDataAdapter("Select Employeeid, FirstName , LastName from employees", mycn)

ds = New DataSet()

myda.Fill(ds, "Employees")

Dim dc As DataColumn

Dim dr As DataRow

For Each dr In ds.Tables(0).Rows

Dim trow As New TableRow()

For Each dc In ds.Tables(0).Columns

Dim tcell As New TableCell()

tcell.Controls.Add(New LiteralControl(dr(dc.ColumnName).ToString))

trow.Cells.Add(tcell)

Next

Table1.Rows.Add(trow)

Next