dropdownlist in sqldatareader
Dim Com2 As New SqlCommand("sql", Conn)
Dim RD2 As SqlDataReader = Com2.ExecuteReader()
While RD2.Read()
Dim li As New ListItem
li.Text = RD2("TableType")
li.Value = RD2("TableType")
TableTime.Items.Add(li)
End While