Listing 1
Dim CONNECTION_STRING As String = _
"Data Source=(local);Initial Catalog=Northwind;Integrated Security=True"
Dim sQuery As String = _
"select TerritoryID, TerritoryDescription, RegionID from Territories"
Dim dr As SqlDataReader
Dim cn As New SqlConnection(CONNECTION_STRING)
Dim cmd As New SqlCommand(sQuery, cn)
The fun begins when we actually call the cmd.executereader.
Listing 2
cn.Open()
dr = cmd.ExecuteReader
Do While dr.Read
Dim li As New ListItem _
(dr("TerritoryDescription"), dr("TerritoryID"))
Select Case dr("RegionID")
Case 1
li.Attributes.Add("style", "color:red")
Case 2
li.Attributes.Add("style", "color:Green")
Case 3
li.Attributes.Add("style", "color:Dodgerblue")
Case Else
li.Attributes.Add("style", "color:orange")
End Select
ddlTerritories.Items.Add(li)
Loop
cn.Close() 
