DropDownList não carrega!

Question

Pessoal,

Sabem me dizer onde está o erro, pois o DDL não está retornando os dados.

O código é este:

Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration

Partial Class Maquina
    Inherits System.Web.UI.Page
    '------------------------------------------------------------------------------'

    ' pego a connstr
    Dim strConnStringNew As String = ConfigurationManager.ConnectionStrings.Item("SqlConnectionStringNew").ToString()
    Dim oConn As New SqlConnection(strConnStringNew)

    ' variaveis objetos
    Dim oStr As String
    Dim oCmd As SqlCommand

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        ' Carregando os dados da base na combobox
        Try
            Using oConn As New SqlConnection(ConfigurationManager.ConnectionStrings("SqlConnectionStringNew").ConnectionString)
                oConn.Open()
                oStr = "SELECT nome_departamento FROM departamento"
                oCmd = New SqlCommand(oStr, oConn)

                With Me.ddlDepartamento
                    .DataSource = oCmd.ExecuteReader()
                    .DataTextField = "nome_departamento"
                    .DataValueField = "id_departamento"
                    .DataBind()
                End With
            End Using

        Catch ex As Exception

        End Try

    End Sub
End Class

---

Missão Crítica