مساعدة في الخطأBinding collection error

السلام عليكم...

اجعل كود التحديث كالتالي:

Private Sub Command4_Click()
    If Adodc1.Recordset.EditMode = adEditInProgress Then
        Adodc1.Recordset.Update
    End If
End Sub

كما أرى أنك تستعمل عبارة On Error Resume Next بكثرة، و أنا أعتبرها أسوأ جملة في VB6 و ينبغي عدم استعمالها إلا للضرورة.

نرجو الاستفادة و السلام.

شكرا أخي على الاجابة و الكود

لكن الكود لم يغير شيىء من المشكل

وضعت الكود ولم يحصل تحديث

شكرا مرة اخرى