Dim DB As New System.Data.OleDb.OleDbConnection()
Dim DA As System.Data.OleDb.OleDbDataAdapter
Dim DS As New System.Data.DataSet()
''WHEN THE PAGE IS LOADED CHECK FOR A VALUE IN THE SESSION VARIABLE
''IF NOT FOUND LOAD THE DATA FROM THE DATABASE AND STORE IT IN A SESSION VARIABLE FOR LATER USE.
If IsNothing(Session("Categories")) Then
DB = Session("DBCon")
Dim SQL As String = "Select * From ProductCategories Order By Category"
DA = New System.Data.OleDb.OleDbDataAdapter(SQL, DB)
DA.Fill(DS)
Session("Categories") = DS
Session("DBCon") = DB
DB.Close()
DB = Nothing
Else
''IF THE SESSION VARIABLE CONTAINS A DATASET THEN DON'T LOAD FROM THE DATABASE
''USING THE DATASET FROM THE SESSION VARIABLE REDUCES DATABASE ACCESS
DS = Session("Categories")
End If
DGrid.DataSource = DS
DGrid.DataBind()