Mostrar Select en un textbox VB.Net

Necesito mostrar un campo de la base de datos en un TextBox. Creo que mi codigo esta bien, pero no lo muestra. Aqui dejo el codigo
Imports MySql.Data.MySqlClient
Public Class Form11
Private Sub Form11_Show(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = Form10.TextBox1.Text
Dim conn As MySqlConnection
'conectarse a la Base de datos
conn = New MySqlConnection()
conn.ConnectionString = "server=servidorbd; user id=<usuario; password=contraseña; database=Basededatos"
'por si falla...
Try
conn.Open()
Catch myerror As MySqlException
MsgBox("Error al conectar a la base de datos.")
End Try
'sql query
Dim myAdapter As New MySqlDataAdapter
Dim sqlquery = "SELECT * FROM Inteligencia WHERE Nick = '" + TextBox1.Text + "'"
Dim myCommand As New MySqlCommand()
myCommand.Connection = conn
myCommand.CommandText = sqlquery
'start query
myAdapter.SelectCommand = myCommand
Dim myData As MySqlDataReader
myData = myCommand.ExecuteReader()
'Comprobar si el usuario existe
If myData.HasRows = 0 Then
MsgBox("Usuario no encontrado")
Else
TextBox3.Text = myData.Item("Mail")
End If
End Sub
End Class