private sub Output()
dim rstemp as adodb.recordset
set rstemp=cn.execute("Select * from OracleTable")
dim rsAccess as new adodb.recordset
rsaccess.open "Select * from AccessTable",cn,......
cn.begintrans
on error goto SaveErr
do whille not rstemp.eof
with rsaccess
.addnew
for i=0 to rstemp.fields.count-1
.fields(i).value=rstemp.fields(i).value
next
.update
end with
rstemp.movenext
loop
cn.committrans
exit sub
SaveErr:
msgbox "导入失败!",vbinformation,"操作提示"
end sub