زر الاضافة

فى حالة استخدام الكود التالى يتم الحفظ فى الجدول PIN فى بعض الاحيان ولا يتم فى مرات اخرى

Set MySet = New ADODB.Recordset

With MySet

.Open "SELECT * FROM PIN", mydb, adOpenDynamic, adLockOptimistic

'====================================

.AddNew

!no = CmbBno.Text

!Desc = Label13.Caption

!QTY_INV = Val(Text3.Text)

!REG_NO = Val(Text1.Text)

!INV = Val(Text8.Text)

!QTY = Val(Text4.Text)

.Update

End With

Set MySet = Nothing

مع العلم بان الاتصال بالملف يتم فى FORM_LOAD بالكود التالى

mydb.Open "Description=raiba;DRIVER=SQL Server;SERVER=NEC-IQ2TESER9HJ;APP=Visual Basic;WSID=NEC-IQ2TESER9HJ;DATABASE=raiba;Network=DBMSLPCN;Trusted_Connection=Yes"

ما هى المشكلة

وشكراً