codice:
	        Dim Connessione As OleDbConnection
        Dim Comand As OleDbCommand
        Dim DataReader As OleDbDataReader
        Try
            Connessione = New OleDbConnection(ConnectionString())
            Connessione.Open()
            Comand = New OleDbCommand(Query(), Connessione)
            DataReader = Comand.ExecuteReader()
            If DataReader.HasRows Then
                Me.DataGrid1.DataSource = DataReader
                Me.DataGrid1.DataBind()
            Else
                Me.Label1.Text = "Non ci sono dati"
            End If
        Catch er As Exception
            Me.Label1.Text = er.Message
            Try
                DataReader.Close()
            Catch ex As Exception
            End Try
        Finally
            Connessione.Close()
        End Try