Dim stmSQL, tmpSQL
      stmSQL = "SELECT * FROM magcamare WHERE "
      tmpSQL = "(descrizione LIKE "
      
      'Suddividi la stringa da cercare
      Dim Pos
      Pos = 1
      While Pos > 0
      Pos = InStr(1, ricerca," ")
      If Pos = 0 Then
      'Ho trovato una sola parola nella stringa da ricercare
      tmpSQL = tmpSQL & "'%" & ricerca & "%')"
      Else
      'Ci sono più parole, quindi concateno le istruzioni LIKE SQL
      tmpSQL = tmpSQL & "'%" & Mid(ricerca,1,Pos) & "%' " & operatore & " Descrizione LIKE "
      ricerca = Mid(ricerca,Pos+1,len(ricerca))
      End If
      Wend      
      'Costruisco la stringa finale dell'istruzione SQL
      stmSQL = stmSQL & tmpSQL  
      stmSQL = stmSQL & " order by descrizione, codice asc"