sql - like - perchè non mi trova niente?

[bobo79]

Private Sub CommandButton1_Click()
ListBox1.Clear
Dim d As Database
Dim a As String
Dim NOME_OPERA As String
Dim c As Recordset
Dim anno As String
Dim codice As String
Set d = OpenDatabase("c:\oopp\oopp.mdb")
--->a = "select nome_opera from OPERE where codice like '%1%'" <----
Set c = d.OpenRecordset(a)
While Not c.EOF
ListBox1.AddItem c("anno") & " " & c("CODICE") & " " & c("NOME_OPERA")
c.MoveNext
Wend
End Sub