Imports System.Data.SqlClient
Imports System.Web.Configuration

Partial Class search_user
    Inherits System.Web.UI.Page
    Private connectionstring As String = WebConfigurationManager.ConnectionStrings("constr").ConnectionString

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim selectsql As String
        selectsql = "select * from adduser "
        Dim con As New SqlConnection(connectionstring)
        Dim cmd As New SqlCommand(selectsql, con)
        Dim reader As SqlDataReader
        Try
            con.Open()
            reader = cmd.ExecuteReader()
            Me.GridView1.DataSource = reader
            Me.GridView1.DataBind()
            reader.Close()
        Catch ex As Exception
        Finally
            con.Close()
        End Try
    End Sub