ASP.NET - llenar dropdownlist

hola amigos otra vez yo molestando...pero que le vamos a hacer el que no sabe y no pregunta es el peor de los ignorantes...... bueno estoy tratando de llenar un dropdownlist
pero no me funciona me dice ke no encuentra datos aca dejo el codigo que utilizo, de antemano gracias por la ayuda:

Protected Sub form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles form1.Load
Dim pais
pais = Trim(CType(Request.QueryString("pais"), String))
'Response.Write(pais)

'cadena de conexion
Dim conexion As New SqlConnection()
conexion.ConnectionString = "Data Source=xxxxxxxxxxxxx;Initial Catalog=xxxxxxxxx;Persist Security Info=True;User ID=xxxxx;Password=xxxxx"

'objeto conexion
Dim ObjConexion As New SqlCommand
ObjConexion.CommandText = "select * from help_categorias where idpais='"& pais &"'"
ObjConexion.Connection = conexion

'abrimos la conexión. Si no se produce ningun error mostramos un mensaje de exito,
'y cerramos la conexión.
'Si se produce un error lo capturamos y mostramos en un mensaje de error, mostrando la excepcion producida

Try
conexion.Open()
Dim dr As SqlDataReader
dr = ObjConexion.ExecuteReader()

If dr.HasRows Then

DropDownList1.DataSource = dr
DropDownList1.DataTextField = dr("nro_categoria") & (" - ") & dr("descripcion")
DropDownList1.DataValueField = dr("idcategoria")
DropDownList1.DataBind()

End If

conexion.Close()

Catch ex As Exception
Response.Write("Error en la conexion: " & ex.Message)
conexion.Close()
End Try

End Sub

Verifica si realment la consulta esta trayendo datos...

tengo esa misma consulta en otro formulario y no tengo problemas con ella, eso kieroe decir que si funcona pero cuando queiro llenar el dropdownlist no me funka....... ke podra ser??? estare haciendo algo mal?????

ya pude hacerlo...pero ahora me surge otra pregunta, como puedo hacer para mostrar 2 campos de la tabla en un DropDownList ... es como lo que hago con un combobox en vb6 rs("blabla") & " - " & rs("bla bla") y que en el combo en modo ejecucion se ve asi blabla - bla bla... de antemano gracias

Protected Sub form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles form1.Load
Try

If Not Page.IsPostBack Then
DropDownList1.DataTextField = ("descripcion")

DropDownList1.DataValueField = "idcategoria"
DropDownList1.DataSource = GetCategorias()
DropDownList1.DataBind()
End If
Catch ex As Exception
Response.Write("Error en la conexion: " & ex.Message)
End Try
End Sub

Function GetCategorias() As DataSet
Dim pais
pais = Trim(CType(Request.QueryString("pais"), String))

Dim nwindConn As SqlConnection = New SqlConnection("Data Source=xxxxxxxxxx;Initial Catalog=xxxxxxxx;Persist Security Info=True;User ID=xxxxxxxxxx;Password=xxxxxxxxx")

Dim selectCMD As SqlCommand = New SqlCommand("select * from help_categorias where idpais='" & pais & "'", nwindConn)
selectCMD.CommandTimeout = 30

Dim custDA As SqlDataAdapter = New SqlDataAdapter
custDA.SelectCommand = selectCMD

nwindConn.Open()

Dim dataSet As DataSet = New DataSet
custDA.Fill(dataSet, "help_categorias")
Return dataSet

End Function

Para mostrar los dos campo lo haces como lo estas haciendo, concatenando los dos campos o usas un DataGrid

pero al concatenarlo asi me da error :

DropDownList1.DataTextField =("nro_categoria") & " - " &("descripcion") /* me da error dice que no encontro el campo que se llama nro_categoria-descripcion

DropDownList1.DataValueField = "idcategoria"
DropDownList1.DataSource = GetCategorias()
DropDownList1.DataBind()

Conactenalo en el SQL en que basas tu DataSet, es decir,

SELECT (NroCategoria + ' ' + Descripcion) As Dato FROM....

ya me funka bien......gracias por la ayuda