Dropdownlist

[quintelab]

Tenho o seguinte código que monta meu DropDownList Dinamico, conforme minha SQL:

Drop_escola.DataSource = dr

Drop_escola.DataTextField = "escola"

Drop_escola.DataValueField = "escola_id"

Drop_escola.DataBind()

até então tudo certo, mas gostaria que o primeiro campo do meu DropDownList fosse um "Selecione" com valor nulo, e não o resultado da minha SQL, como fazer?

[quintelab]

Eu achei a solução, e vou postar, talvez sirva para outras pessoas:

Dim myHashTable As New System.Collections.Hashtable

Dim Item As DictionaryEntry

myHashTable("0") = "- - Selecione - -"

Do While dr.Read

myHashTable(dr.Item("escola_id")) = dr.Item("escola")

Loop

For Each Item In myHashTable

Dim newListItem As New ListItem

newListItem.Text = Item.Value

newListItem.Value = Item.Key

Drop_escola.Items.Add(newListItem)

Next