Поиск следуюшего элемента с таким же названием

[DooMchik))]

Привет всем! у меня есть следуюшая ситуация: есть поиск который производиться по след коду

Private Sub mnuName_Click()
DataGrid1.MarqueeStyle = dbgHighlightRow
On Error Resume Next
Dim prompt As String
Dim SearchStr
prompt = "Введите название магазина."
SearchStr = InputBox(prompt, "Поиск торговой точки")
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "Название LIKE '" & SearchStr & "%'"
If Adodc1.Recordset.EOF Then
MsgBox "Магазин с таким названием не найден"
Adodc1.Recordset.MoveLast
End If
mnuFindNext.Visible = True
End Sub

нужно, зделать так чтобы при нажатии на кнопочку на форме делался поиск следуюшего элемента с таким же названием, или если можно чтоб сразу все элементы с одинаковыми названиями выделились или вывелись