Dim data As New SqlDataAdapter
Dim ds As New DataSet
Dim df As New DataTable
Dim tr As New HtmlTableRow
Dim td3 As New HtmlTableCell
Dim td4 As New HtmlTableCell
Dim lbl As New Label
Dim dt As New DataTable
Dim cblbind As New CheckBoxList
Dim strcon As String = ConfigurationManager.ConnectionStrings("KRGCbiz").ConnectionString
Dim con As New SqlConnection(strcon)
Dim CmdString As String = "select Teamid,teamname from team"
Dim cmd As New SqlCommand(CmdString, con)
data.SelectCommand = cmd
con.Open()
data.SelectCommand = cmd
data.Fill(dt)
'For i As Integer = 0 To dt.Rows.Count - 1
For i As Integer = 0 To dt.Rows.Count - 1
lbl.Text = dt.Rows(i).Item("TeamName")
td3.Controls.Add(lbl)
tr.Cells.Add(td3)
table1.Controls.Add(tr)
Dim protyp As Integer = dt.Rows(i).Item("TeamId")
cmd.Connection = con
cmd.CommandText = &qu ...
Go to the complete details ...