Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim con As New System.Data.OleDb.OleDbConnection("Provider=SQLOLEDB;Data Source=GOMMOSA\SQLEXPRESS;Initial Catalog=MIO_SITO;User ID=sa;Password=saweb")
        con.Open()
        Dim com As New System.Data.OleDb.OleDbCommand()
        com.Connection = con
        com.CommandText = "select DENOMINAZIONE from CATEGORIE"
        Dim com2 As New System.Data.OleDb.OleDbCommand()
        com2.Connection = con
        com2.CommandText = "select DENOMINAZIONE from PRODUTTORI"
        If Not Page.IsPostBack Then
            categ.DataSource = com.ExecuteReader()
            categ.DataValueField = "DENOMINAZIONE"
            categ.DataBind()
            produt.DataSource = com2.ExecuteReader()
            produt.DataValueField = "DENOMINAZIONE"
            produt.DataBind()
        End If
        con.Close()
    End Sub