Need help

Jeg har lavet en database i access 2000 og front end i visual basic, det virker fint jeg kan tilføje og slette poster fra databasen, men jeg kan ikke få min søgefunktion til at virke, når jeg søger på et navn der ikke er i databasen skriver den godt nok at den ikke kan finde posten , men søger man på et navn som er i databasen hopper den bare ud af programmet. Nedenstående er søg-koden

Private Sub cmdSøg_Click()
Dim Søg As String
Søg = InputBox(\"Søg efter.\", \"søg efter post\")
frmFront.datVis.Recordset.MoveFirst
Do While Form1.datVis.Recordset.EOF = False
If frmFront.datVis.Recordset(\"Fornavn\") = Søg Then
  Unload Me
  Exit Sub
End If
frmFront.datVis.Recordset.MoveNext
Loop
MsgBox (\"Posten findes ikke i databasen!\"), vbInformation, \"Søg Post\"
End Sub

Håber nogen har svaret