直接写 insert，并且在 insert 加上检查条件
if not exists(select * from 资料表 where 条件)
insert into ...
每一笔资料 execute 一次
※ 引述《NealPope (尼尔教皇)》之铭言：
: 问VB写进数据库一些问题
: 某段跑回圈程式如下↓
: For i = 0 to Ubound(temp())
: aa = Split(temp(i),";")
: sPord = aa(0)
: sMoney = aa(1)
: sTime = aa(2)
: '开始写入数据库
: rs.AddNew
: rs("pord") = sPord
: rs("money") = sMonry
: rs("now_time") = sTime
: rs.updatebatch
: Next
: 数据库字段pord、money、now_time已设唯一值
: 当有相同值时，就会Error
: 要如何判断数据库已经有此笔资料时，自动跳到下一个循环?
: 不能用 If rs.EOF或rs.Rcordcount
: 数据库好像不允许循环Select疯狂查询

大大，这样我的rs.AddNew是不是要改成cn.excute "If notexisys..."

对