一行行加，循环。rs.open sql,cnn,adopenkeyset...rs.addnew for r =1 to grid.rows-1for c =1 to grid.cols-1rs(c-1)=grid.textmarix(c)nextrs.updatenextrs.close手工代码，手误自查。采纳时选原创，能解决。
