Visual Basic.NET - resultado de consulta sql en un textbox

Dim SQL As String

        Dim MiConexion As New SqlConnection("Server=NOEL-PC\SQLEXPRESS;Database=houston; Integrated Security=SSPI;")

        Dim Rs As SqlDataReader

        Dim Com As New SqlCommand

        Com.Connection = MiConexion

        MiConexion.Open()

        SQL = "select correo  from usuario where nombre = 'aaaa'"

        Com = New SqlCommand(SQL, MiConexion)

        Rs = Com.ExecuteReader()

        Rs.Read()

        TextBox1.Text = Rs(0) 'aca me pone el primer campo del select 

        Rs.Close()

Dim SQLANOG8 As New OleDb.OleDbDataAdapter="...................tu cadena............"

Dim dt As datatable

da.fill(dt)

textbox1.text=dt.items(0,0).tostring