Return data into a textbox.text (no replies)

Hi. Ive found this bit of code to query a mysql DB but im stuck on how to construct the code that will put the result in a textbox.text (box)

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

Dim myData As New DataSet
Dim conn As New MySqlConnection
Dim cmd As New MySqlCommand
Dim myAdapter As New MySqlDataAdapter

conn.ConnectionString = "server=127.0.0.1;" _
& "uid=root;" _
& "pwd=PW;" _
& "database=DB"

Try
conn.Open()
cmd.CommandText = "SELECT Firstname FROM contacts WHERE PhoneDay = " + TextBox1.Text


i.e. result = cmd (array 1) or whatever.

Thanks in advance.