Составление условия с If и открытие формы для редактирования найденной записи - VB

Формулировка задачи:

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

Private Sub btnFind_Click()
Student.Recordset.FindFirst "FIO = '" _
& Trim(InputBox("введите")) & "'"
If Student.Recordset.NoMatch Then MsgBox "не найдено"
End Sub

А это кнопка редактирования, которая открывается в другой форме... вот помогите привязать её к кнопке поиска, если запись найдена...

Private Sub btnEdit_Click()
frmUsers.Student.Recordset.FindFirst "FIO = '" & lstList.Text & "'"
Load frmUsers
frmUsers.Show
Unload Me
End Sub

Решение задачи: «Составление условия с If и открытие формы для редактирования найденной записи»

textual
                            Листинг программы 
                        
                            SELECT * FROM WHERE
 
IF .RECORDSET.RECORDCOUN = 0 THEN EXIT SUB