Hola, lo que puedes hacer es:
Usar un datareader, primero colocando el item "seleccione" y hacer un do while para llenar el dropdown
Ejemplo:
Cita: ...
..
dropDownList.Items.Add(New ListItem("Seleccione","Seleccione"))
Do While r.Read
iID = Cint(r("CampoID"))
sCampo1 = CStr(r("campo1"))
dropDownList.Items.Add(New ListItem(sCampo1,iID))
Loop
Salu2