[vb express 2008] Problema con clausola WHERE associata al mese e l'anno di una data

[frank095]

eseguo un query che mi deve confrontare il mese e l'anno della data corrente con quelli dentro una tabella access.. il risultato deve apparire in una listbox. il tutto riesce solo quando nella clausola WHERE della query metto come condizione solo MONTH o YEAR mentre se le inserisco insieme non mi riporta nessun risultato... dove sbaglio ?

 Dim data As Date = Today
        Dim anno As String
        anno = Format(data, "MM/yyyy")
archivio.Open()

        Dim ricerca1 As New OleDb.OleDbCommand("SELECT Codice_barra,Descrizione FROM Articoli_anagrafica WHERE YEAR (Data_scadenza)AND MONTH(Data_scadenza)  = @valore2", archivio)
        ricerca1.Parameters.Add("@valore2", OleDbType.Char).Value = anno

        Dim leggi1 As OleDb.OleDbDataReader = ricerca1.ExecuteReader
        MsgBox(leggi1.Read)



        While leggi1.Read()
            ListBox2.Items.Add(leggi1("Codice_barra"))
        End While

        archivio.Close()