addoc1.recordset.movefirst '移到第一条记录while not addoc1.recordset.eofa=addoc1.recordset.fields(0)b=addoc1.recordset.fields(1)'程序处理addoc1.recordset.movenext '下一条记录wend
