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
'  se nella casella "txtRicercaCd" digito 3 ( o piu di 3 ) caratteri passa il controllo alla casella combimata
    If Len(strTRc) > 2.5 Then
        Me!autore.SetFocus
        Me!autore.Dropdown
        Me!autore.Value = CurrentDb.OpenRecordset("SELECT TOP 1 [show Autori].Artista FROM (" & strRWS & ");", dbOpenDynaset).Fields("Artista")
    Else
        'Me!txtRicercaCd.Value = strTRc
        'Me!txtRicercaCd.SetFocus
        'Me!txtRicercaCd.SelStart = Len(strTRc)
    End If

End Sub