Public Sub ShowFirst(ByVal s As Object, ByVal e As EventArgs) intCurrIndex.Text = 0 DataBind()End SubPrivate Sub DataBind() Dim objConn As New SqlConnection(ConfigurationSettings.AppSettings(ConnectionString)) Dim objDA As New SqlDataAdapter(exec sp_das_sales_sel, objConn) Dim objDS As New DataSet() If Not Page.IsPostBack() Then objDA.Fill(objDS) intRecordCount.Text = CStr(objDS.Tables(0).Rows.Count) objDS = Nothing objDS = New DataSet() End If objDA.Fill (objDS, Cint(intCurrIndex.Text), CInt(intPageSize.Text), Sales) dList.DataSource = objDS.Tables(0).DefaultView dList.DataBind() objConn.Close() PrintStatus()End Sub