cargar combo desde una una base de datos

hola tengo un problema al momento de llenar un combo desde una consulta a una bd

Dim sql As String
Dim cn As SqlConnection
Dim cm As SqlCommand
Dim da As SqlDataAdapter
Dim ds As DataSet


sql = "SELECT s.suc_descripcion FROM usuario AS u INNER JOIN usuario_sucursal AS us ON u.usu_codigo = us.ucs_usuario INNER JOIN sucursal AS s ON us.ucs_sucursal = s.suc_codigo WHERE (u.usu_usuario = 'TJARAMILLO') "

cn = New SqlConnection("Data Source=PC-PC;Initial Catalog=web_courier_2012;Integrated Security=True;")
cn.Open()

cm = New SqlCommand()
cm.CommandText = sql
cm.CommandType = CommandType.Text
cm.Connection = cn
da = New SqlDataAdapter(cm)
ds = New DataSet()
da.Fill(ds)
DropDownList1.DataSource = ds
DropDownList1.DataTextField = "suc_descripcion"


el problema es que cuando lo ejecuto ejecuto no me carga el combo la aplicacion esta en aspx con vb