[RaouL_BennetH]

Ho fatto un piccolo progressino:

cerca = InputBox("Inserisci il nominativo: ")

trova = ""
trova = trova & "SELECT Nominativo FROM tblRubrica" & vbCrLf
trova = trova & "WHERE Nominativo LIKE ' " & cerca & " ' " & vbcrlf

set rs = cn.Execute(trova)

           If rs.EOF Then
 
                  MsgBox "Nessun Nominativo"

           Else
            
                  adodc1.recordset = trova
                  adodc1.refresh
           end if

E così infatti lui mi trova il nominativo nella datagrid, solo che, così mi fa sparire tutti gli altri e mi evidenzia solo quello trovato

Vorrei invece che mi evidenziasse quello trovato lasciandomi visibili tutti gli altri.

Thx.

RaouL.