Imports System.Data.OleDb
Imports system.data
Imports System.IO
Imports System.Configuration

Partial Class news
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim objreader As OleDbDataReader
        Dim objconn As OleDbConnection
        Dim provider As String = (System.Configuration.ConfigurationManager.AppSettings("dbprovider"))
        Dim percdb As String = Server.MapPath(System.Configuration.ConfigurationManager.AppSettings("dbpath"))
        objconn = New OleDbConnection(provider & percdb)
        Dim objcmd As New OleDbCommand("SELECT * FROM news", objconn)
        objconn.Open()
        objreader = objcmd.ExecuteReader
        griglia_news.DataSource = objreader
        griglia_news.DataBind()
        objreader.close()
        objconn.Dispose()
    End Sub
End Class