Dropdownlist desde SQL a textbox VB.NET

[yetrus]

Tengo problemas como siempre, tengo un dropdowlist qeu es llenado desde una base SQL al cargar la pagina WEB, pero lo que no puedo hacer es que el elemento seleccionado se traspase a un text y un label con los campos del la Base. Espero se entienda el codigo


asi lo lleno:

Dim da As New SqlDataAdapter("SELECT RutE FROM cliente ", conn)
Dim ds As New DataSet
da.Fill(ds, "cliente")
With DropDownList1
.DataTextField = "RutE"
.DataSource = ds.Tables("cliente")
.DataBind()
End With

y as itrato de sacarle los datos


Private Sub DropDownList1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
conn.Open()
Dim cmd As New SqlCommand("select * from cliente where RutE = '" & DropDownList1.SelectedValue & "'")
cmd.Connection = conn
Dim dr As SqlClient.SqlDataReader
dr = cmd.ExecuteReader
While dr.Read
TextBox1.Text = dr.GetValue(0)
Label1.Text = dr.GetValue(1)
End While
dr.Close()
conn.Close()
End Sub


Saludos