Have you tried opening 2 data sources by using 2 DSNs.
If not try this.
Create 1 DSN for Oracle andother for Access Database.
Then in your VB code, open 2 data sources with these 2 DSNs.
Read from 1 datasource (access data source)
and write in another data source (Oracle)