Cursor em Pesquisa No DataGrid

Tenho um DataGrid em que realiso 3 consultas:

A primeira pesquiso um Codigo da revista na primeira coluna(CodigoRevista)

digito em um textbox, e ele encontra normalmente

A segunda, pesquiso a Edição da revistas (pois são varios codigos iguais, porem com edições diferente)

na segunda coluna (EdiçãoRevista)

essa pesquisa é a partir do registro que esta selecionado da pesquisa anterior

digito em um texbox, e ele encontra normalmente

A Terçeira, pesquiso um codigo de banca (Pois são varias edições

distribuidas em bancas diferentes), essa pesquisa é realizada

apartir do registro que esta selecionado da pesquisa anterior

digito em um text box, e acontece normalmente

Porem, se eu digito um valor na em um dos textbox, e troco esse valor

desconfigura todas as pesquisas anteriores

o cursor não volta pra pesquisa anterior

Isso tem Solução?

Ai Vai Meu Codigo:

'Primeira Pesquisa
Private Sub TxtCodigoRevistaEncalheRevistas_Change()
BancoRevistasOperações.Recordset.MoveFirst
BancoRevistasOperações.Recordset.Find "CodigoRevista LIKE '" & TxtCodigoRevistaEncalheRevistas & "'"

If TxtCodigoRevistaEncalheRevistas.Text = "" Then
BancoRevistasOperações.Recordset.MovePrevious

If BancoRevistasOperações.Recordset.BOF Then
BancoRevistasOperações.Recordset.MoveFirst

If BancoRevistasOperações.Recordset.EOF Then
Conexao.rsRevistasOperações.MoveLast

If (DGRevistasOperações.SelBookmarks.Count <> 0) Then
DGRevistasOperações.SelBookmarks.Remove 0

End If
End If
End If
End If

End Sub

'Segunda Pesquisa
Private Sub TxtEdiçãoRevistaEncalheRevistas_Change()
BancoRevistasOperações.Recordset.Find "EdiçãoRevista LIKE '" & TxtEdiçãoRevistaEncalheRevistas & "'"

If TxtEdiçãoRevistaEncalheRevistas.Text = "" Then
BancoRevistasOperações.Recordset.MovePrevious

If BancoRevistasOperações.Recordset.BOF Then
BancoRevistasOperações.Recordset.MoveFirst

If BancoRevistasOperações.Recordset.EOF Then
BancoRevistasOperações.Recordset.MoveLast

If (DGRevistasOperações.SelBookmarks.Count <> 0) Then
DGRevistasOperações.SelBookmarks.Remove 0

End If
End If
End If
End If

End Sub

'Terceira Pesquisa
Private Sub TxtCodigoBancaEncalheRevistas_Change()
BancoRevistasOperações.Recordset.Find "CodigoBanca LIKE '" & TxtCodigoBancaEncalheRevistas & "'"

If TxtCodigoBancaEncalheRevistas.Text = "" Then
BancoRevistasOperações.Recordset.MovePrevious

If BancoRevistasOperações.Recordset.BOF Then
BancoRevistasOperações.Recordset.MoveFirst

If BancoRevistasOperações.Recordset.EOF Then
BancoRevistasOperações.Recordset.MoveLast

If (DGRevistasOperações.SelBookmarks.Count <> 0) Then
DGRevistasOperações.SelBookmarks.Remove 0

End If
End If
End If
End If

End Sub

Desde ja Meu Muito Obrigado!