Creo que lo que necesitas es llenar un DataCombo con la informacion que tengas en un tabla de una base de datos en tiempo de ejecucion.... te sirve eso? Yo lo hago asi.. y me sirve y no es muy lento... al menos en mi maquina
'********
'Coneccion con la tabla TablaPruebas
Dim adoPruebas As ADODB.Recordset
Set adoPruebas = New ADODB.Recordset
adoPruebas.CursorLocation = adUseClient 'La Base de Datos esta en la PC del cliente
'Carga el recordset en la consulta SQL indicada, con la conexion ConeccioBD
adoPruebas.Open "SELECT PKCodigoInquilino from TInquilinos", ConeccioBD, adOpenDynamic, adLockOptimistic
'********
'lleno el combo box con todos los codigos de inquilinos
Set Me.dbcCodigoInquilino.RowSource = adoPruebas
Me.dbcCodigoInquilino.BoundColumn = "CodigoTabla"
Me.dbcCodigoInquilino.ListField = "DescripcionTabla"
Espero te sirva...