Dim Reader as SQLDataReader
Dim Select As New ListBox()'oppure un DropDownList
Me.Select.Items.Add(New ListItem("Tutti i tipi", "0"))'Aggiungi manualmente un campo di default oppure i valori che vuoi
Dim SQL as New SQLCommand("SELECT * from quello_che_vuoi",Conn)
conn.open()
Reader = SQL.ExecuteReader()
Do while Reader.Read()
Me.Select.Items.Add(New ListItem(Reader(Campo_testo),Reader(Campo_valore)) )
loop
conn.close()

Non so se č quello che volevi......
Occhio ai ritorni a capo!
Ciao
Legnetto