Pesquisar no DataGrid e Selecionar a linha

[Almarante]

Olá Pessoal Preciso de uma ajudinha.

Estou usando o codigo abaixo para pesquisar registros no DataGrid, está funcionado perfeitamente, porem eu preciso que o cursor do DataGrid aponte o registro encontrado ou selecione a primeira linha, para que o registro selecionado seja mostrado nas texbox do form, como faço isso?

Private Sub txtPesquisa_Change()
X = Len(txtPesquisa.text)
AdoPagar.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD
 Filtro = txtPesquisa.text & "%"
AdoPagar.RecordSource = "select * from ContasPagar WHERE  " & cboPesquisa.text & "  Like  '" & Filtro & "'"
AdoPagar.Refresh

Do While AdoPagar.Recordset.EOF = False

AdoPagar.Recordset.MoveNext
Loop
End Sub

[kuroi]

porque você faz o movenext no while no final??

acho q ele esta levando pra .EOF, sem ele ele deveria parar na primeira linha certinho como você quer, não??