Dim dt As DataTable = database.GetData

gvItems.DataSource = dt
gvItems.DataBind()

Dim pageFrom, pageTo, total As Integer
pageFrom = gvItems.PageSize * gvItems.PageIndex + 1
pageTo = gvItems.PageSize * (gvItems.PageIndex + 1)
total = dt.Rows.Count

If pageTo > Total Then
    pageTo = Total
End If

lblGridViewData.Text = String.Format("Showing {0} to {1} of {2} entries", pageFrom, pageTo, Total)