If Not IsNull(strTxtRc) Or Trim(strTxtRc) <> "" Then 
    strWhere = "Where Tbl_Artista.Titolo Like '*" & Trim(strTxtRc) & "*'" 
    strOrderBy = "ORDER BY [001_tbl_1].Artista, [001_tbl_1].Titolo" 
Else 
    strWhere = "" 
    strOrderBy = "" 
End If 
 
Me.cmbCd.RowSource = "SELECT [001_tbl_1].IdCd, Tbl_Artista.ArtDescrizione, [001_tbl_1].IdArtista, [001_tbl_1].Artista, [001_tbl_1].Titolo, [001_tbl_1].Numero_cd " & _ 
"FROM 001_tbl_1 INNER JOIN Tbl_Artista ON [001_tbl_1].IdArtista = Tbl_Artista.IdArtista " & _ 
strWhere & " " & _ 
strOrderBy & ";"