Salve, il problema che ho è questo:

Popolo una datagrid mediante ADO.

Volevo scrivermi una funzione che mi permettesse di inserire un testo da ricercare, e fare in modo che la datagrid mi evidenzi la riga dove è presente quel nominativo.

Stavo procedendo così:

codice:
Private Sub cmdFind_Click()

cerca = InputBox("Inserisci il nominativo: ")

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

set rs = cn.execute(trova)

    if rs.EOF Then
       msgbox "No records", vbokonly

    else

       adodc1.recordsource = "trova"
       adodc1.refresh
    end if
Ma non mi riesce di farlo funzionare.


Piccolo EDIT: ho dimenticato di dirvi cosa è che non mi funziona

Il fatto è che mi trova la riga con il nominativo, ma io vorrei solo che la evidenziasse senza farmi sparire le altre, thx

thx.

RaouL.