enlazar un combobox con un textbox

[leodany123]

Hola que tal, mi pregunta es la siguiente me gustaria saber como puedo enlazar un combobox con un textbox me explico.
tengo una tabla lllamada alumnos ahi tengo los campos nombre del alumno, carrera y promedio.
Lo que quiero hacer es que cuando yo selecciones un item del combobox que tiene como parametros los datos del campo nombre del alumno al momento de seleccionar un alumno lo que quiero hacer es que me llene los textbox con los datos de ese alumno q yo escogi.
la relacion con el combobox y el cambo nombrealumno ya lo hice solamente me falta enlazar el combobox con el textbox.

ojala que me pudieran ayudar o por lo menos decirme como,
Gracias y que tengan un ecxelente dia

[TECKNOCK]

NOTA: Aquí utilizo la cadena de coneccion a una base de datos Access 2007. Para ver otras cadenas de conexion para distintas BD visita: http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/296-connectionstring-ado.htm#1

En tu proyecto crea un nuevo MODULO.
En el Codigo del Modulo pones:

'Conexion a tu Base de Datos
Public con AsNew OleDb.OleDbConnection( _
"PROVIDER=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=TU_BASE_DATOS.accdb; Jet OLEDB:Database Password = TU_PASSWORD;")
'Command Builder: Nexo entre BD y Programa
Public cb AsNew OleDb.OleDbCommandBuilder()
'DataAdapter: Realiza operaciones en las tablas del DataSet
Public da_Carreras As OleDb.OleDbDataAdapter
'DataSet: Contiene las tablas obtenidas de las consultas a la Base de Datos
Public ds AsNewDataSet
'Instrucciones SQL: Para enviar y ejecutar en la BD
Public SQL AsString

[TECKNOCK]

Ahora el codigo en tu Formulario:

'Evento LOAD del Formulario
PrivateSub TU_FORMULARIO_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

'Conectamos con la BD y ponemos la tabla ESTUDIANTES en nuestro DataSet
con.Open()
SQL = "SELECT * FROM Estudiantes ORDER BY Nombre"
da_Estudiantes = New OleDb.OleDbDataAdapter(SQL, con)
da_Estudiantes.Fill(ds, "Estudiantes")
con.Close()

'Llenamos el Combobox con los Nombres de los Estudiantes
ForEach Estudiante AsDataRowIn ds.Tables("Estudiantes").Rows
TU_COMBOBOX.Items.Add(Estudiante.Item("Nombre"))

Next

End Sub

[TECKNOCK]

Por último llenar los datos al cambiar el INDEX del ComboBox

'Evento SELECTED_INDEX_CHANGED del Combobox
PrivateSub TU_COMBOBOX_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TU_COMBOBOX.SelectedIndexChanged

ForEach Estudiante AsDataRowIn ds.Tables("Estudiantes").Rows


If Estudiante.Item("Nombre") = TU_COMBOBOX.text Then

'Llenamos TEXTBOXES
TXT_NOMBRE.txt = Estudiante.Item("Nombre")
TXT_APELLIDO.txt = Estudiante.Item("Apellido")
TXT_TELEFONO.txt = Estudiante.Item("Telefono")
TXT_DIRECCION.txt = Estudiante.Item("Direccion")

End If

Next

EndSub

[TECKNOCK]

Tuve que separar la respuesta en varias partes porque FOROSDELWEB.COM me decia que la respuesta era muy larga

¿¿Como queiren que ayudemos a los demas??....

[leodany123]

Gracias Chavo por tu ayuda fue muy util tu ayuda.
Gracias nuevamente y cualquier cosa estoy a tus ordenes