Linking and de-linking of Oracle tables

Question

Hi,
Does anyone know how to link and de-link Oracle database from MS Access please? (programmatically)
I have made a form in MS access. For example. say there is a button when user click on in, it will insert the data from access into Oracle table.
In a simple way, the button just for transfer data from table 'A' (in Access) or records into table 'B' (in Oracle).
Therefore, how do you connect a table in Oracle from ms access programmatically. It means in vb code and how do you de-link it so it will reduce the lag time.
At the moment, I can connect link tables from Oracle into ms Acces using the link tables and setup the ODBC connection. However, I want to use this setup the connection & calling the table with codes in ms access (vb).
For Example: (however, this code doesnt work but maybe I am getting there)
So if someone can help me, it would be great.
Dim strCon
strCon = "Driver={Microsoft ODBC for Oracle}; " & _
"CONNECTSTRING=(DESCRIPTION=" & _
"(ADDRESS=(PROTOCOL=TCP)" & _
"(HOST=MYCOMP)(PORT=9876))" & _
"(CONNECT_DATA=(SERVICE_NAME=testing))); uid=user;pwd=password;"
Dim oCon As Database
Set oCon = WSCript.CreateObject("ADODB.Connection")
Dim oRs As Recordset
Set oRs = WSCript.CreateObject("ADODB.Recordset")
oCon.OpenRecordset strCon
Set oRs = oCon.Execute("SELECT * FROM employee")
cheers

Answer 1

I think I am in the right forum, the only thing is that I don't know in which category that I belong to. Is there a topic about access & Oracle in this forum?
Basically, I can connect link tables from Oracle into ms Acces using the link tables and setup the ODBC connection. However, I want to use this setup the connection & calling the table with codes in ms access (vb).
For Example: (however, this code doesnt work but maybe I am getting there)
So if someone can help me, it would be great.
Dim strCon
strCon = "Driver={Microsoft ODBC for Oracle}; " & _
"CONNECTSTRING=(DESCRIPTION=" & _
"(ADDRESS=(PROTOCOL=TCP)" & _
"(HOST=MYCOMP)(PORT=9876))" & _
"(CONNECT_DATA=(SERVICE_NAME=testing))); uid=user;pwd=password;"
Dim oCon As Database
Set oCon = WSCript.CreateObject("ADODB.Connection")
Dim oRs As Recordset
Set oRs = WSCript.CreateObject("ADODB.Recordset")
oCon.OpenRecordset strCon
Set oRs = oCon.Execute("SELECT * FROM employee")