Cómo rellenar cuadro de texto según un combobox

Para poder ayudarte quisiera preguntarte algunas cosas, primero tienes un cuadro combinado (ComboBox) que se llena de una tabla o consulta de (Expedientes) es decir la tabla donde están todos los datos del expediente me refiero, si es así te pregunto:
¿Son muchos los campos de la tabla expediente que quieres llevar a los cuadros de texto (TextBox) o son pocos más o menos 3 o 4?.
Tengo un método que puede servirte en el evento AfterUpdate del cuadro combinado (ComboBox) que necesita que la tabla o consulta de (Expedientes) que lo llena contenga los campos que vas llevar a los cuadros de texto (TextBox).
¿Puedes decirme cuantos y cuales son los campos que vas llevar a los textbox? ; Es para diseñarte algo que te sea funcional desde el principio

Hola,
Gracias por responder tan pronto. Te comento:
El Combobox lo relleno con una consulta SQL.
Y los Textbox a rellenar son como unos 20. Que van desde datos de empresa, fechas e importes referentes a expedientes de Contratación.
Eso sí. Tanto los datos del Combo como con los que quiero rellenar los textbox están en una misma tabla.
Gracias... y espero ansioso tu respuesta ;-)

Bueno el método que tengo solo permite traer 19 campos más el campo llave que en este caso seria (Número de Expediente) supongo.
Para implementarlo debes crear una consulta de la tabla "Expedientes" que contenga el "Numero del Expediente" y 19 campos más (NO PUEDEN SER MÁS 20 CAMPOS EN TOTAL) ya que el cuadro combinado (ComboBox) solo tolera un máximo de 20 campos.
Después de creada la consulta ve al formulario donde quieres mostrar los datos del expediente, inserta un cuadro combinado (ComboBox) del cuadro de herramientas de access, utiliza el asistente (supongo que sabes utilizarlo), selecciona como origen de datos para el cuadro combinado la consulta que creaste primero, luego cuando este seleccionando los campos recuerda solo seleccionar un máximo de 20.
Cuando te muestre la consulta con los datos que aparezca como primer campo el "número de expediente", asegurate que con el ratón vayas cerrando el ancho de las demás columnas correspondientes a los 19 campos restantes es decir cierra todas esas columnas de manera que no sean visibles solo deja el espacio para el primer campo "número de expediente" esto es para que cuando el usuario le haga clic al cuadro combinado (combo box) solo vea el campo "número de expediente".
Asegurate que el campo que se selecciona para el cuadro combinado sea el "número del expediente".
Una vez insertado y listo dale botón derecho del ratón sobre el cuadro combinado y selecciona (Build Event) "Generador de Eventos" y luego selecciona (Code Builder)"Generador de Código"
El cursor aparecerá entre un procedimiento llamado BeforeUpdate()
Private Sub Combo1_BeforeUpdate(Cancel As Integer)
El cursor esta aqui....
End Sub
Estas en el editor de vba arriba están 2 cuadros combinados selecciona el del lado derecho que muestra "before update", sube con el scroll bar y selecciona el evento "after update" el cursor va a parecer entre este procedimiento así:
Private Sub Combo1_AfterUpdate()
El cursor esta aqui..
End Sub
dentro del metodo AfterUpdate() copia este codigo:
Text1 = Me.Combo1.Column(1)
Text2 = Me.Combo1.Column(2)
Text3 = Me.Combo1.Column(3)
Text4 = Me.Combo1.Column(4)
Text5 = Me.Combo1.Column(5)
Text6 = Me.Combo1.Column(6)
Text7 = Me.Combo1.Column(7)
Text8 = Me.Combo1.Column(8)
Text9 = Me.Combo1.Column(9)
Text10 = Me.Combo1.Column(10)
Text11 = Me.Combo1.Column(11)
Text12 = Me.Combo1.Column(12)
Text13 = Me.Combo1.Column(13)
Text14 = Me.Combo1.Column(14)
Text15 = Me.Combo1.Column(15)
Text16 = Me.Combo1.Column(16)
Text17 = Me.Combo1.Column(17)
Text18 = Me.Combo1.Column(18)
Text19 = Me.Combo1.Column(19)
Quedaría así:
Private Sub Combo1_AfterUpdate()
Text1 = Me.Combo1.Column(1)
Text2 = Me.Combo1.Column(2)
Text3 = Me.Combo1.Column(3)
Text4 = Me.Combo1.Column(4)
Text5 = Me.Combo1.Column(5)
Text6 = Me.Combo1.Column(6)
Text7 = Me.Combo1.Column(7)
Text8 = Me.Combo1.Column(8)
Text9 = Me.Combo1.Column(9)
Text10 = Me.Combo1.Column(10)
Text11 = Me.Combo1.Column(11)
Text12 = Me.Combo1.Column(12)
Text13 = Me.Combo1.Column(13)
Text14 = Me.Combo1.Column(14)
Text15 = Me.Combo1.Column(15)
Text16 = Me.Combo1.Column(16)
Text17 = Me.Combo1.Column(17)
Text18 = Me.Combo1.Column(18)
Text19 = Me.Combo1.Column(19)
End Sub
Se supone que ya tienes inertados en el formulario los 19 cuadros de textos (TextBox) con los nombre de Text1, Text2... hasta Text19.
Salva el formulario ciérralo y vuélvelo a abrir selecciona del cuadro combinado (ComboBox) el número de expedientes que quieras y se llenaran los cuadros de texto (TextBox) con los datos correspondientes al expediente seleccionado

Ummmm...
No me sirve... son más de 20 textbox.
¿No hay alguna forma utilizando el índice de la tabla o algo para extraer el dato del campo y asignarlo al textbox?