Tambien puedes usar el value que está dentro del dropdownlist...
Por ejemplo:
Código:
Dim lItem As New ListItem()
With lItem
.Value = CType(myReader("ItemID"), Integer)
.Text = Trim(myReader("Company"))
End With
tu_lista.Items.Add(lItem)
y recoges el valor seleccionado con
x = tu_lista.SelectedItem.Value
str = "select * from tabla where id=" x
...
...
etc...
Saludos