Selecionar dado do DropDown

Bom Dia

Eu tenho um DropDown, onde eu quero pegar o valor do item digitado para fazer uma consulta em uma tabela.
Esse item em questao sera um ID.

Estou utilizando a rotina abaixo.Ela ate que funciona sem apresentar erros, porem para cada item do meu DropDown que eu seleciono, sempre esta sendo retornado o valor 1.

Esse combo e alimentado automaticamente atraves das propriedades do mesmo , se bem que eu acho que essa nao e a razao do problema.


Private Sub DropNomeProjeto_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropNomeProjeto.SelectedIndexChanged
Dim Sql As String
Dim cmd As SqlCommand
Dim dr As SqlDataReader

Dim conexao As SqlConnection

conexao = New SqlConnection(ConfigurationManager.ConnectionStrings(´timesheetConnectionString´).ConnectionString)

Sql = ´Select GESTOR_CONTA from GESTOR where GESTOR_ID = ´ + DropFormato.SelectedItem.Value

cmd = New SqlCommand(Sql, conexao)

conexao.Open()
dr = cmd.ExecuteReader()

If dr.Read() = True Then
TxtContaGestor.Text = dr(´GESTOR_CONTA´)
End If
dr.Close()
conexao.Close()
End Sub
End Class


O que sera que eu fiz de errado dessa vez.

Muito Obrigado