Private Sub txtRicercaCd_Change()
' Memorizza il testo da ricercare
Dim strTRc As String
strTRc = Me!txtRicercaCd.Text

' Costruiamo le parti della stringa SQL di RowSource
'        è composta da 3 patri
'  strSel   SSEECT ......    ( Fissa )
'  strWhe   WHERE .....      ( Variabile )
'  strOrd   ORDER BY .....   ( Fissa )

Dim strSel As String
strSel = "SELECT [show Autori].Artista FROM [show Autori]"

Dim strWhe As String
    If Nz(strTRc, "") = "" Then
        strWhe = ""
    Else
        strWhe = " WHERE (([show Autori].Artista) Like '*" & strTRc & "*')"
    End If

Dim strOrd As String
strOrd = " ORDER BY [show Autori].Artista"

'  Componiamo con le 3 parti citate sopra la stringa SQL complessiva del RowSource
Dim strRWS As String
strRWS = strSel & strWhe & strOrd

Me!autore.RowSource = strRWS & ";"
                     
' reset controlli
        Me!autore.Value = CurrentDb.OpenRecordset("SELECT TOP 1 [show Autori].Artista FROM (" & strRWS & ");", dbOpenDynaset).Fields("Artista")
        Me!lista.Requery

End Sub