Dim selectsql As String
        selectsql = "select * from adduser WHERE Firstname ='" & Me.TextBox2.Text & "'"
        Dim con As New SqlConnection(connectionstring)
        Dim cmd As New SqlCommand(selectsql, con)
        Dim reader As SqlDataReader
        Try
            con.Open()
            reader = cmd.ExecuteReader()

            reader.Read()
            Me.GridView1.DataSource = reader("Firstname").ToString()
            Me.GridView1.DataBind()

            Me.GridView1.DataSource = reader("Lastname").ToString()
            Me.GridView1.DataBind()

            Me.GridView1.DataSource = reader("address").ToString()
            Me.GridView1.DataBind()
  reader.Close()

        Catch ex As Exception
            Label3.Text = ex.Message
        Finally
            con.Close()
        End Try