ComboBox con tres columnas

[sagma]

Gracias, era solo convertir mis campos numericos, para poner enlazar con los demas.

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 a todos,