[vb6] ricercare record in un datagrid

[RaouL_BennetH]

Come potrei fare per ricercare un record in un datagrid?

io avevo pensato a questo:

cerca = InputBox("Inserisci il nominativo: ")

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

set rs = cn.Execute(trova)

           If rs.EOF Then
 
                  MsgBox "Nessun Nominativo"

           Else

           'qui non riesco a capire il codice da utilizzare....

Ad ogni modo non funziona perchè la clausola where è sbagliata.

Thx.

RaouL.

[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.

[RaouL_BennetH]

up