读者您好：

勾选多个字段使用循环语句结合数组，依次将数据“原因”写入到数据表中，例如下面的代码：

        For i = 0 To Check1.UBound

            Adodc1.Recordset.Fields("原因") = Check1(i).Value

            if adodc1.recordset.eof=false then adodc1.recordset.movenext

        Next i

        Adodc1.Recordset.Update                                                      '更新数据记录

        Adodc1.Refresh