ComboBox

[sagma]

que tal amigo forero, fijate como lo tengo eu.

Código:

   Function cargar_combo()

       Dim Trx As New AccesoDatos.Transacciones(False)
       Dim DtE As New DataTable
       Dim Ad As New AccesoDatos.Operaciones(Trx.Comand)

       DtE = Ad.EjecturarConsulta("SELECT ID_PERIODOS, SEMESTREperi + ' - ' + convert(varchar(20),ANIOSperi) AS Lista FROM PERIODOS")
       Me.cmb_periodo.DataSource = DtE
       Me.cmb_periodo.DisplayMember = "Lista"
       Me.cmb_periodo.ValueMember = "ID_PERIODOS"

       Trx.CerrarConexion()

   End Function

suerte