Populating Textboxes, With Multiple Records

I have a customers form, on which i have a textbox to allow the user to search and show a record by surname. I have got it working, but i do not know how to accomodate the possibility that there might be two members with the same surname, e.g. Smith.(the PK is member ID)

here is the code:

Private Sub cmdSearch_Click()
Dim strMemberRef As String
Dim strSearch As String

'Check txtSearch for Null value or Nill Entry first.

If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then
MsgBox "Please enter a value!", vbOKOnly, "Invalid Search Criterion!"
Me![txtSearch].SetFocus
Exit Sub
End If

'Performs the search using value entered into txtSearch
'and checks this against values in strStudentID

DoCmd.ShowAllRecords
DoCmd.GoToControl ("Surname")
DoCmd.FindRecord Me!txtSearch

Surname.SetFocus
strMemberRef = Surname.Text
txtSearch.SetFocus
strSearch = txtSearch.Text

'If matching record found sets focus in strStudentID and shows msgbox
'and clears search control

If strMemberRef = strSearch Then
MsgBox "Match Found For: " & strSearch, , "Record Found"
Surname.SetFocus
txtSearch = ""

'If value not found sets focus back to txtSearch and shows msgbox
Else
MsgBox "Match Not Found For: " & strSearch & " - Please Try Again.", _
, "Invalid Search Criterion!"
txtSearch.SetFocus
End If
End Sub

Can anyone shed some light as to what I should do? Im looking to have a next button or something to show the rest of the records, or have the search button change to say next if there are more records.

Thanks in advance