给你伪代码吧，如下：[外层循环开始] （如果你的程序需要插入很多，可以做个外层的循环）rs.open "select * from [表] where [要插入数据的条件]",connection..... （请遵循recordset 对象打开记录集的语法结构）if rs.count=0 then （记录集对象如果数量是0，说明没有找到相同的） for i=1 to 30
con.execute "插入语句" （循环插入30次） next ielse 不满足条件时尽兴的操作end if[外层循环结束]
