ما هو الخطأ في هذ الكود ارجوكم

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

انا عامل الكود ده علشان يا جماعة اعمل عملية بحث علي رقم مسلسل هيكتبه اليوزر في تكست 2 الرقم اللي هيكتبه اليوزر ده المفروض انه موجود في جدول الحركة الوارد وهو دلقوتي بيسجل في جدول الحركة الصادر فالمفروض امه لو ملقاش الرقم ده في الوارد هيدليه رسالة خطأ ولو لقاه متكرر في الحركة الصادرة قبل كدة يديلة برده رسالة خطأ انه موجود في الصادر قبل كدة المشكلة اللي عندي اني قايله لو كان جدول الصادر ده فاضي مينفذش الكود وكذلك لو كان الحركة الواردة فاضية مش هينفذ حاجة برده بس للأسف بيديني رسالة خطأ لما بدخل بالموشر علي التكست مرة واخرج وارجعله تاني مرة بيبقي عادي جدا مفيش مشاكل لو دخلت للتكست مرة تانية بيدي خطأ والخطأ بيظهر في حالة واحدة اللي هي لو الجدول فاضي وادي الكود اهه

ملحوظة الكود موضوع في حدث lostfocus للتكست وشكرا

Private Sub Text2_LostFocus()

If rs.RecordCount = 0 Then

GoTo 10

Else

If Text2.Text = "" Then Exit Sub

rs.MoveFirst

rs.Find "number='" + Text2.Text + "'"

End If

If rs.EOF = True Then

GoTo 10

Else

MsgBox " ÑÞã ÇáÍÓÇÈ ãæÌæÏ ãä ÞÈá ÊÃßÏ ãä ÑÞã ÇáÍÓÇÈ æÇÚÏ ÇáãÍÇæáÉ", vbCritical, "ÎØÃ"

SendKeys "{Home}+{End}"

Text2.SetFocus

Exit Sub

End If

If rs.State = 1 Then rs.Close

'---------------------------------------------------------------------------------------------------------------------

If rs1.State = 1 Then rs1.Close

10 rs1.CursorLocation = adUseClient

rs1.LockType = adLockOptimistic

rs1.Open "imports", cn, adOpenDynamic

If rs1.RecordCount = 0 Then Exit Sub

If Text2.Text = "" Then Exit Sub

rs1.MoveFirst

rs1.Find "number='" + Text2.Text + "'"

If rs1.EOF = True Then

MsgBox "ÚÝæÇ ÑÞã ÇáãÓáÓá ÛíÑ ãæÌæÏ ÊÃßÏ ãä ÑÞã ÇáãÓáÓá æÇÚÏ ÇáãÍÇæáÉ", vbCritical, "ÈÑäÇãÌ ÃÑæÇÞ ÇáÞÈÖ"

SendKeys "{home}+{end}"

Text2.SetFocus

Set rs1 = Nothing

Exit Sub

End If

Text5.Text = rs1("num")

Text6.Text = rs1("money")

Text7.Text = rs1("draw")

Text8.Text = rs1("city")

d1.Value = rs1("tdate")

d1.Enabled = False

Combo1.Text = rs1("kind")

rs1.Close

End Sub

منتظر رد الخبرا بقي