Ciao a tutti!

non riesco a visualizzare in una casella di riepilogo i dati ottenuti da una query

questo è il listato:


Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim SQL As String
Set conn = CurrentProject.Connection
Set rs = New ADODB.Recordset
ric = InputBox("Titolo:", "Ricerca per Titolo")

SQL = "SELECT * FROM Lista WHERE titolo LIKE '%" & ric & "%'"

rs.Open SQL, conn, 3, 3

If rs.EOF Then
MsgBox "Nessun brano trovato!"
Titolo.Caption = "Nessun brano trovato..."
Autore.Caption = "Nessun brano trovato..."

Else
Titolo.Caption = rs![Titolo]
Autore.Caption = rs![Autore]
Elenco.Visible = True


Me.Elenco.RowSource = SQL
Me.Elenco.Requery



End If

ma non mi visualizza nulla nella casella di riepilogo..grazie