Try this On ADO Connection:
Set you ODBC first..{Microsoft ODBC Oracle Driver}.
------------------------------
Set cn = New ADODB.Connection
cn.Open "dsn=COMS;UID=ComsAdmin;PWD=coms"
Set rs = New ADODB.Recordset
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic

------------------------------------
I'm new in vb
-Khamal-