binding data to the drop down list

Protected Sub Page_DataBinding(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DataBinding
        Dim conn As New SqlClient.SqlConnection(ConfigurationManager.ConnectionStrings("schoolz").ConnectionString)
        conn.Open()
        Dim cmd As New SqlCommand("select strName from tblCity", conn)
        Dim dr As SqlDataReader
        dr = cmd.ExecuteReader()
        ddlCity.DataSource = dr
        ddlCity.DataTextField = "strName"
        ddlCity.DataBind()
        dr.Close()
        conn.Close()
    End Sub

create proc spEditReport
@intReturnAdd int=0 output
as
begin
declare @add int
select strName from tblBranch where intAddressID=@intReturnAdd

select @add= tblAddress.intAddressID
from tblAddress  join tblCity 
on tblAddress.intAddressID=tblCity.intCityID
if @@error <> 0
    begin
        rollback transaction
        return @intReturnAdd
    end
    commit transaction
    set @intReturnAdd = @add
    return @intReturnAdd
end