Protected Sub AccessDataSource5_Selecting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceSelectingEventArgs)
        If DropDownList1.SelectedValue = "Tutti" Then
            If DropDownList2.SelectedValue = "Tutti" Then
                If DropDownList3.SelectedValue = "Tutti" Then
                    If DropDownList4.SelectedValue = "0" Then
                        e.Command.CommandText = "SELECT [IDImmobile], [Tipo], [Tipologia], [Località], [Comune], [Prezzo], [Metri Quadri] AS Metri_Quadri FROM [DomekImmobili]"
                        e.Command.Parameters.Clear()
                    Else
                        Dim h As Integer = Int32.Parse(DropDownList4.SelectedValue)
                        e.Command.CommandText = "SELECT [IDImmobile], [Tipo], [Tipologia], [Località], [Comune], [Prezzo], [Metri Quadri] AS Metri_Quadri FROM [DomekImmobili] WHERE ([Prezzo] <= ?)"
                        Dim x As New OleDbParameter()
                        x.ParameterName = "Prezzo"
                        x.Direction = ParameterDirection.Input
                        x.Value = h
                        e.Command.Parameters.Add(x)
                    End If
                End If
            End If
        End If
    End Sub