Exibir valor do banco mysql em textbox

boa tarde galera, estou com um problema... estou querendo pegar o valor bairro do banco mysql e exibir em um textbox, coisa basica, facin facin mas não estou conseguindo =/....O codigo que tenho na pagina é o abaixo:

Imports System.DataImports System.Data.OdbcPartial Class rep_meusDados Inherits System.Web.UI.Page Const ConnStr As String = "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; Database=dbssv3; uid=root; pwd=121520; option=3;" Protected Overrides Sub OnInit(ByVal e As EventArgs) MyBase.OnInit(e) Dim con As New OdbcConnection(ConnStr) Try Dim cmd As New OdbcCommand("SELECT * FROM pessoa", con) Dim dr As OdbcDataReader Try dr = cmd.ExecuteReader() con.Open() GridViewListaMeusDados.DataSource = cmd.ExecuteReader((CommandBehavior.CloseConnection Or CommandBehavior.SingleResult)) GridViewListaMeusDados.DataBind() While dr.Read Me.TextBoxBairro.Text = dr("bairro").ToString() End While Finally cmd.Dispose() End Try Finally con.Dispose() End Try End Sub 'OnInitEnd Class

e está ocorrendo o erro abaixo:

System.InvalidOperationException was unhandled by user code Message="ExecuteReader requires an open and available Connection. The connection's current state is closed." Source="System.Data" StackTrace: at System.Data.Odbc.OdbcConnection.SetStateExecuting(String method, OdbcTransaction transaction) at System.Data.Odbc.OdbcCommand.ValidateConnectionAndTransaction(String method) at System.Data.Odbc.OdbcCommand.ExecuteReaderObject(CommandBehavior behavior, String method, Boolean needReader, Object[] methodArguments, SQL_API odbcApiMethod) at System.Data.Odbc.OdbcCommand.ExecuteReaderObject(CommandBehavior behavior, String method, Boolean needReader) at System.Data.Odbc.OdbcCommand.ExecuteReader(CommandBehavior behavior) at System.Data.Odbc.OdbcCommand.ExecuteReader() at rep_meusDados.OnInit(EventArgs e) in D:\Desenvolvimento\WebSite System Service\WebSite v.3\Projeto\website\rep\meusDados.aspx.vb:line 17 at System.Web.UI.Control.InitRecursive(Control namingContainer) at System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint)

Quem puder me ajudar... deve ser coisa basica, que devo estar esquecendo de fazer.... mas estou na fase de aprendizado e nem tudo ai em cima é normal pra mim :)Agradeço desde já pessoal