做自己的处理,可能会比较慢
但可以解决你的问题
dim rs,conn '远程连接
dim lrs,lconn '本地连接
Rs.open strquery,conn,3,1
lrs.open lstrquery ,lconn,,3
do while not rs.eof
lrs.add
for i=0 to rs.fields.count-1
Select case rs.fields(i).name
case "id"
'something for id
case ....
'other thing do
else
'Something Not to do
end select
lrs.update
next
rs.movnext
loop