مشكلة في برمجة زر البحث في الاكسس

السلام عليكم ورحمه الله وبركاته 

عندي مشروع واحتاج فيه زر البحث في السجلات وبحثت في هذا المنتدى ولقيت موضوع قديم للاستاذه زهرة وجدا الكود جيد لكن فيه مشكلة وحده 

مثال : انا ابحث بالرقم الوظيفي لموظفات وعندي 

123 سارة 

133 منى 

142 اروى 

في المرة الاولى لما ابحث عن اروى * هي اخر صف * يطلع لي انه موجود وزي الفل ... 

لكن لما ارجع بعدها ابحث عن سارة وهي * في اول السجل* يقولي غير موجود يعني كانه عملية البحث فقط من اخر عملية قمت بها وماتحته ومايرجع يشوف من فوق.. 

وهذا هو الكود ..... ممكن تساعوني فيه لو سمحتم .. 

Option Compare Database

Private Sub cmdSearch_Click()
Dim strSearch As String
Dim rs As Object

Set rs = Me.RecordsetClone

   
   If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then
          MsgBox "رجاء ادخل اسم للبحث عنه", vbOKOnly, "خطأ في البحث"
          Me![txtSearch].SetFocus
   Exit Sub
   End If
   strSearch = Me![txtSearch]
   With rs
  .FindNext "[id] = '" & strSearch & "'"
 
   If .id <> strSearch Then
          MsgBox "لا يوجد سجل بهذا الإسم :  " & strSearch, , "غير موجود"
          Me.txtSearch = ""
          Me![txtSearch].SetFocus
   ElseIf .NoMatch Then
          MsgBox "آخر سجل في البحث عن :  " & strSearch, , "آخر سجل"
          Me.txtSearch = ""
          Me![txtSearch].SetFocus
  DoCmd.GoToRecord , , acFirst
   Else
   Me.Bookmark = .Bookmark
          MsgBox "تم ايجاد اسم :  " & strSearch, , "مبروك"
          Me.txtSearch = ""
          Me![txtSearch].SetFocus
   Exit Sub
   End If
   End With
   

rs.Close
Set rs = Nothing
End Sub