Colocar Datos de Instruccion SQL en un Cuadro de lista

... el siguiente Codigo que me devuelve un resultado de varias filas y colomunas:
... Se puede colocar el resultado directamente en un cuadro de lista o un textbox en el VBa de Excel? [...]

Private Sub CommandButton2_Click()
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=" & "C:\Documentos\CF_Datos.mdb;Jet OLEDB:Database Password=******"
Set rs = New ADODB.Recordset
rs.Open "select via_placa,via_viaje from VIAJES where via_placa = '000upb'", cn
'Sheets(1).Cells(2, 1).CopyFromRecordset rs
/* aqui lo puedo colocar en una hoja de Excel */
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

hola, !

> ... el siguiente Codigo que me devuelve un resultado de varias filas y colomunas:
> ... Se puede colocar el resultado directamente en un cuadro de lista o un textbox en el VBa de Excel? [...]

si quieres evitar el 'pase' de tu recordset a un rango con el metodo copyfromrecordset para llenar 'en directo'...
podrias utilizar dos 'bucles' para el rescate de las 'varias' filas y columnas y pasarlas [una por una] al control...
usando un bucle 'externo' para el avance por filas segun el numero de registros en: -> rs.RecordCount
y otro bucle 'interno' para el avance por columnas segun el numero de campos en: -> rs.Fields.Count

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ el codigo expuesto __
> Private Sub CommandButton2_Click()
> Set cn = New ADODB.Connection
> cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=" & "C:\Documentos\CF_Datos.mdb;Jet OLEDB:Database Password=******"
> Set rs = New ADODB.Recordset
> rs.Open "select via_placa,via_viaje from VIAJES where via_placa = '000upb'", cn
> 'Sheets(1).Cells(2, 1).CopyFromRecordset rs
> /* aqui lo puedo colocar en una hoja de Excel */
> rs.Close
> Set rs = Nothing
> cn.Close
> Set cn = Nothing
> End Sub