Protected oSystemSettings As SystemSettings ... Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Me.oSystemSettings = CType(Me.RegisterBizObj(New SystemSettings), SystemSettings) If Not IsPostBack Then oSystemSettings.GetAllData() Session("dsSystemSettings") = oSystemSettings.DataSet End If End Sub Private Sub SaveChanges() Dim dsSaved As DataSet dsSaved = CType(Session("dsSystemSettings"), DataSet) Dim result As Boolean result = oSystemSettings.SaveDataSet(dsSaved) End Sub