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

Partial Class UsersTable
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            BindUserData()
        End If
    End Sub

    Private Sub BindUserData()
        Dim connectionString As String = ConfigurationManager.ConnectionStrings("NaveedDBConnection").ConnectionString
        Dim query As String = "SELECT TOP 5 ID, USER_NAME, USER_EMAIL, USERNAME, BIRTH_DATE, LOCATION, CREATED_AT FROM USERS ORDER BY CREATED_AT DESC"

        Using conn As New SqlConnection(connectionString)
            Using cmd As New SqlCommand(query, conn)
                conn.Open()
                Dim adapter As New SqlDataAdapter(cmd)
                Dim dt As New DataTable()
                adapter.Fill(dt)

                gvUsers.DataSource = dt
                gvUsers.DataBind()
            End Using
        End Using
    End Sub

    Protected Sub gvUsers_PageIndexChanging(ByVal sender As Object, ByVal e As GridViewPageEventArgs)
        gvUsers.PageIndex = e.NewPageIndex
        BindUserData()
    End Sub
End Class