Visual Basic.NET - Una ayudadita por favor !

Otra ves soy yo !!
disculpen toda las molestias pero, deseo aprender VB .NET estoy utilizando Visual Studio 2005. la ayuda que les pido es ¿ como muestro informacion de la consulta en un textbox ?
GRACIAS.......
Public Class captura1
Dim Conecta As String = "server=localhost;uid=root;password=kofemail2008;database=empleados"
Dim Conecta_on As New MySqlConnection(Conecta)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Conecta_on.Open()
Dim busca As String = "Select numemp From emple Where numemp = '" & TextBox1.Text & "'"
Dim Com As MySqlCommand = New MySqlCommand(busca, Conecta_on)
Dim dataR As MySqlDataReader
dataR = Com.ExecuteReader()
If dataR.HasRows() Then
'dataR.Read()
Do While dataR.Read()
TextBox2.Text = dataR.GetString(2)
'Form3.Text1.Text = rs.Fields!pozo
'TextBox1.Focus()
Loop
Else
MsgBox("EL NUMERO DE EMPLEADO NO SE ENCUENTRA REGISTRADO...")
TextBox1.Text = " "
TextBox1.Focus()
End If
Conecta_on.Close()
Com = Nothing
End Sub

No entiendo, no la estas mostrando ahi? cuando haces TextBox2.Text = dataR.GetString(2)
Si no puedes hacer dataR("numemp") o dataR(0)

Saludos

Hola Damian !!

tienes razon, el problema era en el Select numemp lo cambie por Select *
Gracias