كود الاستدعاء مش شغال مع انو صحيح!

السلام عليكم

يا جماعه انا عملت كود الاستدعاء ومش شغال مع انو بيتهيئلي انو صحيح

انا ربط البرنامج بالاكسس

وفي حاجه كمان كود الحفظ شغال بس لما بفتح الاكسس بلاقيه مش ضايف حاجه

ارجوووووووووو الرد عليا في اقرب وقت ممكن

Dim g As Integer

InputBox "ãä ÝÖáß ÇÏÎá ÑÞã ÇáÊÓÌíá"

mo1.MoveFirst

mo1.Find "EmpNO = '" + g + "'"

If mo1.EOF Then

MsgBox " ÚÝæÇ ÇáÑÞã ÎØÃ"

Exit Sub

End If

Text2.Text = ("FullName")

Text1.Text = ("EmpNO")

Text3.Text = ("notes")

Combo1.Text = ("Job")