Llenar Combobox con datos de BD SQL Server 2005

[lalo0002]

ESA ES MI CADENA DE CONECCION (EN MODULO)
Module mDatos
Public cadenaConx As String = "Data Source=LALO-PC\SQLEXPRESS;Initial Catalog=BDTRAMITE;Integrated Security=True"
End Module

Y ESTA ES MI LOAD
Imports System.Data.SqlClient

Public Class MantenimientoEmpleado

Private Sub MantenimientoEmpleado_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Using cn As New SqlConnection(cadena_conexion)
Using cmd As New SqlCommand("SELECT CODIGO, NOMBRE FROM AREA", cn)
Using da As New SqlDataAdapter(cmd)
Dim dt As New DataTable("AREA")
da.Fill(dt)
cboArea.DisplayMember = "NOMBRE"
cboArea.ValueMember = "CODIGO"
End Using
End Using
End Using
End Sub
End Class



PERO LO MALO ES QUE ME SALE ERROR EN CADENA_CONEXION, NO LLAMA LA MIA ?
A Q SE DEBERA