Private Sub dts_Selecting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceSelectingEventArgs) Handles dts.Selecting
        e.Command.Parameters("nome") = Me.Struttura
    End Sub