Filtrare dati attraverso una dropdownlist ed un dataview

[new]

Ciao a tutti,
sto facendo un archivio fotografico per categoria e ho costruito una pagina con un datagrid ed una dropdownlist sopra che contiene le categorie da visualizzare....
Io vorrei che ad ogni cambio di valore nella drop il datagrid mi si ripopolasse con i nuovi valori....ho provato ad utilizzare un Dataview ma non ottengo niente...


posto il codice..


Vista_ArchivioFoto è una query nel database

Dim Cn As New OleDbConnection
    Dim Cmd As New OleDbCommand("Select * From Vista_ArchivioFoto", Cn)
    Dim da As New OleDbDataAdapter(Cmd)
    Dim ds As New DataSet
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FlagMnu = 2
        Cn.ConnectionString = StrCn

        If Page.IsPostBack = True Then Exit Sub

        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        'Popolo la combobox
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

        Dim CmdPopola As New OleDbCommand("Select * From Sezioni Order By ID DESC", Cn)
        Dim daPopola As New OleDbDataAdapter(CmdPopola)
        daPopola.Fill(ds, "Sezioni")
        daPopola.FillSchema(ds, SchemaType.Source, "Sezioni")

        drpSezioni.DataValueField = "ID"
        drpSezioni.DataTextField = "SEZIONE"
        drpSezioni.DataSource = ds.Tables("Sezioni")
        drpSezioni.DataBind()

        Binddatagrid()

    End Sub

    Public Sub Binddatagrid()
        da.Fill(ds, "ArchivioFotografico")
        da.FillSchema(ds, SchemaType.Source, "ArchivioFotografico")
        dtgArchivio.DataSource = ds.Tables("ArchivioFotografico")
        dtgArchivio.DataBind()
    End Sub


    Private Sub drpSezioni_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drpSezioni.SelectedIndexChanged

        Dim dv As New DataView(ds.Tables("ArchivioFotografico"))
        dv.RowFilter = "SEZIONE='" & drpSezioni.SelectedItem.Text & "'" 
        dtgArchivio.DataSource = dv
        dtgArchivio.DataBind()
    End Sub

Grazie per le risposte