que tal, espero que te sirva:
Código PHP:
Function Cargar_ComboBox()
Dim Trx As New accesodatos.Transacciones(False)
Dim DtLEmi As DataTable
Dim Ad As New accesodatos.Operaciones(Trx.Comand)
DtLEmi = Ad.EjecturarConsulta("SELECT luemcodi, luemdesc FROM lugar_emision")
Me.cbx_LugarEmision.DataSource = DtLEmi
Me.cbx_LugarEmision.DisplayMember = "luemdesc"
Me.cbx_LugarEmision.ValueMember = "luemcodi"
Trx.CerrarConexion()
End Function