使用addnew方法:
 dim rs as ADODB.RecordSet
 ..
 ..
 rs.addnew '添加
 rs.delete '删除
 rs.movenext '向前
 rs.movelast '向后