سؤال فى الادو

السلام عليكم اخوانى اولا اعتذر ان اول مشاركاتى تكون سؤالا او استفسار ثانيا اشكر كل القائمين على هذا المنتدى المفيد فعلا وخصوصا الاخ هانىhnhn وانا م اشد المعجبين بة ومتابع لموضوعاتة وبعتذر مرة اخرى انى اولا مشاركاتى تكون سؤالا

المشكلة فى المشروع فى هذا الفورم

ف مفتاح حفظ وهذا هو الكود

Private Sub Command2_Click()
sqls = "select * from emp where empnum ='" & Text5.Text & "'"
If rs.State = adStateOpen Then rs.Close
rs.Open sqls, db, adOpenKeyset, adLockOptimistic
If rs.EOF Then
GoTo okupdate:
Else
MsgBox " رقم الموظف موجود قبل ذلك", vbCritical + vbMsgBoxRight, "خطأ"
Exit Sub
End If
okupdate:
msgsave = MsgBox("هل تريد حفظ بيانات الموظف", vbYesNo + vbInformation, "تاكيد")
If msgsave = vbYes Then
rs![empn] = frmaddemp.Text1
rs![emp] = frmaddemp.Text2
rs![empphone] = frmaddemp.Text4
rs![empnum] = frmaddemp.Text5
rs.Update
MsgBox "تم اضافة البيانات بنجاح", vbOKOnly + _
vbInformation, "تاكيد"
End If

عند الضغط على مفتاح حفظ ياتى هذا الخطأ

وعند عمل debug

يأتى الخطا ف هذا الكود

If rs.State = adStateOpen Then rs.Close

عند rs.close بالتحديد

لم اجد لهذة المشكلة حلا ياريت اى حد يتكرم ويقلى حل وجزاة الله كل خير

واكرر شكرى للقائمين عن المنتدى بصرف النظر عن اجابة السؤال لانى فعلا استفدت منوا كتير جدا وهوة ال خلانى ابدأ طريق تعلم البرمجة :wub: