<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.data.OleDb" %>
<%@ Page Language="VB" Debug="true"%>
<script runat="server">
 sub Page_Load(obj as Object, E as EventArgs)
  ' Imposta la connessione
  dim objConn as new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; & Data Source=" & Server.MapPath("..\Nuova_Cartella\menu.mdb"))
 
  'Apre la connessione
  dim objCmd as new OleDbDataAdapter("select * from prodotti", objConn)
 
  'Riempie oggetto dataset
  dim ds as DataSet = new DataSet()
  objCmd.Fill(ds, "prodotti")
 
  'Sceglie i dat da visualizzare e li associa a un controllo
  MyDataList.datasource = ds.Tables("prodotti").DefaultView
  MyDataList.DataBind()
 
 
 End Sub
</script>