Ho questo codice :

'--NOME (partial and exact search)
If Not IsEmpty(Request("NOME")) Then
Dim strNOME
strNOME = Trim(Request("NOME"))

If strNOME <> "" Then
'Test for WHERE
If blnWhere Then sql = sql & "AND " Else sql = sql & "WHERE " : blnWhere = True

If (Left(strNOME, 1) = "*" And Len(strNOME) > 1) Then 'Partial search
sql = sql & "(NOME LIKE '%" & Replace(Mid(strNOME, 2), "'", "''") & "') "
ElseIf (Right(strNOME, 1) = "*" And Len(strNOME) > 1) Then 'Partial search
sql = sql & "(NOME LIKE '" & Replace(Mid(strNOME, 1, Len(strNOME)-1), "'", "''") & "%') "
Else 'Exact match
sql = sql & "(NOME = '" & Replace(strNOME, "'", "''") & "') "
End If

Putroppo la ricerca funziona solo con il termine esatto e non con le iniziali. Avete dei suggerimenti ? Grazie per la cortesia . Antonella