whats wrong with this code???

Set rs = Db.OpenRecordset("SELECT * FROM MyNames")
With rs Do
strFind = "Name='Bjorn'"
rs.FindFirst strFind
If Not .NoMatch Then
i = i + 1
Do Until .NoMatch
rs.FindNext strFind
i = i + 1
Debug.Print .Name & ", " & i & " records found!"
Loop
Else
MsgBox "No name found"
End If
Loop

if i have 2 names that are the same and if i search at the name that are 2 times in my database how can i get that 2 persons ore more