RE:Cargar Combox con resultado de busqueda
Hola Daniela, no sé si esto te servirá. Te pongo un ej. y miras si te sirve:
\' VARIABLES
dim lngIndice as long
dim rsCombo as ADODB.Recordset
dim strSql as string
\'SELECCIÓN DE CAMPOS
strSql = \"Select descripcion, codigo from prueba\"
Set rsCombo = New ADODB.Recordset
rsCombo.Open strSql, cntDbSAL
Combo.Clear \' Vaciar la combo siempre antes de llenarla
\'LLENADO DE COMBO. LA PROPIEDAD ITEMDATA ES UNA MATRIZ DONDE PUEDES GUARDAR P.E. EL CODIGO DE LO QUE ESTÉS MOSTRANDO EN EL COMBO, DE MODO QUE SI POSTERIORMENTE A LA HORA DE GUARDAR EN LA BBDD O HACER BÚSQUEDAS POR ESTE CÓDIGO, SOLO TENGAS QUE HACER: COMBO.ITEMDATA(COMBO.LISTINDES). ESTA PRODIEDAD SOLO ADMITE CAMPOS NÚMERICOS¡¡¡¡¡
For lngIndice = 0 To rsCombo.RecordCount - 1
Combo.AddItem (Trim(rsCombo!descripcion)) \' Se muestra
Combo.ItemData(Combo.ListCount - 1) = Trim(rsCombo!Codigo)
rsCombo.MoveNext
DoEvents
Next
rsCombo.Close
Set rsCombo = Nothing
Combo.ListIndex = -1
Espero que te sirva. Suerte