Dos consultas de recorset en un solo combobox?

[feivelfabiola]

Lo que hice fue que al seleccionar determinada seccion apareciera el num_localidad y su nombre_localidad correspondiente, aqui dejo el codigo por si te sirve.
Option Explicit
'Declarar las variables

Dim lIndex As Long

Dim MiConexion As ADODB.Connection
Dim MiRecordset As ADODB.Recordset

Dim arreglocombo1() As String
Dim arreglocombo2() As String
Dim i As Integer
Dim ruta As String


Private Sub Form_Load()
Combo1.Clear



Set MiConexion = New ADODB.Connection
Set MiRecordset = New ADODB.Recordset

ruta = App.Path & "\bd1.mdb"

MiConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ruta & ";Persist Security Info=False"
MiConexion.CursorLocation = adUseClient
MiConexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta
MiRecordset.Open "SELECT SECCION FROM LIMLOC_DTTO_SECC Where DISTRITO = 1 Order by SECCION", MiConexion, adOpenDynamic, adLockOptimistic

i = 0

While Not MiRecordset.EOF
ReDim Preserve arreglocombo1(i)

Combo1.List(Combo1.ListIndex) = MiRecordset.Fields("SECCION")
arreglocombo1(i) = MiRecordset.Fields("SECCION")
MiRecordset.MoveNext
i = i + 1
Wend

MiRecordset.Close
MiConexion.Close

'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''

MiConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ruta & ";Persist Security Info=False"
MiConexion.CursorLocation = adUseClient
MiConexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta
MiRecordset.Open "SELECT LOCALIDAD, NOMBRE FROM LIMLOC_DTTO_SECC Where DISTRITO = 1 Order by SECCION", MiConexion, adOpenDynamic, adLockOptimistic

'While Not MiRecordset.EOF
'With Combo1
'.AddItem MiRecordset.Collect("LOCALIDAD")
'.ItemData(.NewIndex) = MiRecordset.Collect("NOMBRE")
'End With
'MiRecordset.MoveNext
'Wend

'y para recuperar el numero:

'Dim numero As Long
'numero = Combo1.ItemData(Combo1.ListIndex)
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''
i = 0
While Not MiRecordset.EOF
ReDim Preserve arreglocombo2(i)
'Combo2.List(Combo1.ListIndex) = MiRecordset.Fields("LOCALIDAD") & MiRecordset.Fields("NOMBRE")
arreglocombo2(i) = MiRecordset.Fields("LOCALIDAD") & MiRecordset.Fields("NOMBRE")
MiRecordset.MoveNext
i = i + 1
Wend

End Sub

Private Sub Combo1_Click()
Combo2.Clear
lIndex = Combo1.ListIndex

Combo2.List(Combo2.ListIndex) = Combo2.List(Combo1.ListIndex) & arreglocombo2(lIndex)

'ListCount: sirve para indicar el número de elementos en la lista correspondiente
'ListIndex: proporciona el número de orden del elemento que se ha seleccionado; AddItem y RemoveItem permite agregar o eliminar elementos.
'List (n): obtiene el elemento cuyo número de orden está indicado con “n”.
'Text: consiste en una propiedad que muestra el texto de la parte Textbox del Combobox, la cual puede introducirse a través del teclado o ser una opción seleccionada, como vimos anteriormente.
'MsgBox "Seleccionado " & Combo2.List(Combo1.ListIndex) & " con indice " & lIndex

End Sub

'''ok