cargar datos en texbox enlazado

[cerra]

Hola foreros !

otra vez estoy por aqui, a ver si me podeis ayudar.

os cuento: Tengo un combo que se llama Empleados en el que cargo empleados de un campo de una base de datos sQL, y abajo un textbox que se llama correo-electronico en el que, dependiendo el empleado que escoja me carga su direccion de email.

Pero de todas las maneras que he probado no me funciona. Os agradeceria si me pudieseis guiar y cuál son los procedimientos correctos.

El codigo que tengo esta en el evento Selected_Index_changed del combo empleados, es correcto?

..

Public ssql As String
Public lectorExtensiones1 As SqlDataReader

ssql = "SELECT email FROM mail INNER JOIN empleados ON mail.codempleado = empleados.codempleado "

Dim cnnCargar As New SqlCommand(ssql, cnn)

cnn.Open()
Ddatareader = cnnCargar.ExecuteReader()
If Ddatareader.Read Then
txtboxemail.Text = Ddatareader.Item("email")



Else
MsgBox("Email no encontrado", MsgBoxStyle.Information, "Aviso")
'Limpiar
txtboxemail.Text = ""


End If

......


Muchisimas Gracias amigos !