Cara pelo q eu entendi  no vb6 é assim fiz um aqui rapidao com Recordset mas da para aproveitar e colocar no seu tb da para fazer via SQL é entender um pouco da minha logica ai qualquer coisa me manda todo o codigo q vejo melhor o q você esta tentando  indicar.  este codio q fiz aqui ele move o cursor para o registro indicado selecionando alinha em cor azul.    Dim localizar As String localizar = 0 localizar = InputBox("Informe o Código do Cliente a localizar ! ", "Localizando por Código", 0)       If localizar = "" Then Exit Sub        End If        On Error GoTo valor_errado valor_errado:   If Err = 13 Then     MsgBox "Dado invalido, no campo só pode conter número", vbExclamation + vbSystemModal, "Aviso"     localizar = InputBox("Informe o codigo a localizar ! ", "Localizando por Código", 0)     If localizar = "" Then     Exit Sub     End If Resume 0   End If    DtConCliente.Recordset.FindFirst "IDCLIENTE=" & CLng(localizar) DtConCliente.Refresh DtConCliente.Recordset.FindFirst "IDCLIENTE=" & CLng(localizar)           If DtConCliente.Recordset.NoMatch Then             MsgBox " Registro não localizado ", vbExclamation, "O Cliente informado não contém no registro"          Else             DBGrid1.SelBookmarks.Add DBGrid1.Bookmark   'SELECIONA UMA LINHA NA PROBRIEDADE A SER LOCALIZADA                       End If