البحث عن بيانات من جدولين مختلفين

قمت بتصميم جدولين باستخدام الاكسس احدهما يحتوي علي بيانات المستخدم الرقم - الاسم - الوظيفة - الدرجة الوظيفية والاخر يحتوي علي بيانات المرتب / الرقم - المرتب الاساسي - جملة العلاوات - جملة الاستقطاعات - صافي المرتب ثم قمت بصميم فورم بالفيجوال بيسك يحتوي علي رقم الموظف واسم الموظف من الجدول الاول وبيانات المرتب من الجدول الثاني واريد ان ابحث عن تفاصيل المرتب عندما اقوم بادخال رقم الموظف فاذا كان الموظف لديه تفاصيل مرتب يتم عرضها واذا كان غير ذلك تظهر رسالة بانه الموظف لا يوجد لديه تفاصيل مرتب ويجب تسجيل البيانات

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

Private Sub Text1_LostFocus()
If Text1.Text = " " Then
MsgBox "CII? ??? C???EII?", vbOKOnly, "??EE?"
Text1.SetFocus
ElseIf Text1.Text = 0 Then
MsgBox "CII? ??? C???EII?", vbOKOnly, "??EE?"
Text1.SetFocus
End If
Set rs = db.OpenRecordset("Table1", dbOpenTable)
Set rs1 = db.OpenRecordset("Table2", dbOpenTable)
With rs
.Index = "PrimaryKey"
.Seek "=", Text1
If rs.NoMatch Or rs1.NoMatch Then
MsgBox "??C C???EII? ?C ???I"
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Else
Text1.Text = rs1![Emp_No]
Text2.Text = rs![Emp_Name]
Text3.Text = rs1![B_sal]
Text4.Text = rs1![Tot_allow]
Text5.Text = rs1![Tot_cut]
End If
End With
End Sub