Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Session("action") = "main"
        Dim DBCommand As Data.OleDb.OleDbDataAdapter
        Dim DSPageData As New Data.DataSet
        Dim DBInsert As New Data.OleDb.OleDbCommand
        Dim cmd, n
        Dim DBConn As Data.OleDb.OleDbConnection
        DBConn = New Data.OleDb.OleDbConnection("PROVIDER=sqloledb;" _
                & "DATA SOURCE=.\SQLEXPRESS;AttachDbFilename=C:\Inetpub\wwwroot\WebSite1\App_Data\ASPNETDB.MDF;Integrated Security=True;User Instance=True")
        cmd = "SELECT * FROM s_skladView"
        DBCommand = New Data.OleDb.OleDbDataAdapter(cmd, DBConn)
        DBCommand.Fill(DSPageData, "sklad")
        dgSklad.DataSource = DSPageData.Tables("sklad").DefaultView
        dgSklad.DataBind()
    End Sub