数据库连接

不知道什么原因这段代码就是没有返回值
新手请高手多多指教
 Try
            Dim sqlstr As String = "select * from user_profile where user_code='112233'"
            Dim connstr As String = "server=(local);user id=sa;pwd=sa;database=oec_db"
            Dim cn As New System.Data.SqlClient.SqlConnection("server=(local);user id=sa;pwd=sa;database=oec_db")
            Dim cmd As New System.Data.SqlClient.SqlCommand(sqlstr, cn)
            cn.Open()

            Dim b As Integer = cmd.ExecuteReader.HasRows()

            If b > 0 Then
                Dim i As String = cmd.ExecuteReader.Item(0)

                TextBox1.Text = i

            End If
           
        Catch ex As Exception
            TextBox1.Text = ex.Message

        End Try

补充：.NET技术 ,  ASP.NET