[فاضل الحمود]

السلام عليكم 
وضعت هذا لكود للحفظ ولكنه لايعمل ماهو الخطأ ؟؟؟؟

كود :

If rs.State = adStateOpen Then rs.Close
rs.Open "select * from [pharstore] where [docode]='" & Val(Text8) & "'  "  '"
rs.Update
If rs.EOF = True Then

rs.AddNew

rs!docode = Text8.Text
rs!doname = Text9.Text
rs!docount = Val(Text5.Text) + Val(Text10.Text)

rs!rebeh = Text11.Text


rs.Update

MsgBox ("Êã ÍÝÙ ÇáÓÌá ÈäÌÇÍ"), 64, ("Program")


End If