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

[frank095]

sto lavorando con access.. comunque non funziona neanche facendo così :

'così ricavo anno e mese dalla data
Dim data As Date = Today
        Dim anno As String
        anno = Format(data, "yyyy")
        Dim mese As String
        mese = Format(data, "MM")
 
'e così faccio la query
Dim ricerca1 As New OleDb.OleDbCommand("SELECT Codice_barra,Descrizione FROM Articoli_anagrafica WHERE MONTH (Data_scadenza)  = @valore1 AND YEAR (Data_scadenza)= @valore2", archivio)
        ricerca1.Parameters.Add("@valore1", OleDbType.Char).Value = mese
        ricerca1.Parameters.Add("@valore2", OleDbType.Char).Value = anno