e Sub Command4_Click()
        On Error GoTo UpdateErr
        adoCPGL.Recordset.UpdateBatch adAffectAll
        dgdCPGL.AllowUpdate = False
        dgdCPGL.AllowAddNew = False
        dgdCPGL.AllowDelete = False
        Exit Sub
    UpdateErr:
        MsgBox err.Description
    End Sub
    
    Private Sub Command3_Click()
        On Error GoTo DeleteErr
        dgdCPGL.AllowAddNew = False
        dgdCPGL.AllowUpdate = False
        With adoCPGL.Recordset
            If MsgBox("删除记录将无法恢复，确实要删除？", vbYesNo + vbInformation, _
                        "提示") = vbYes Then
                .Delete
                .