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