Code:
'Connect to Oracele server begin Conn = "DRIVER={ORACLE ODBC DRIVER};SERVER=Service name;UID=username;PWD=password;DBQ=Service name;DBA=W;APA=T;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;FRL=F;MTS=F;CSR=F;PFC=10;TLO=O;" Set Cn = New ADODB.Connection With Cn .ConnectionString = Conn .CursorLocation = adUseClient .Open End With If Cn.State = adStateOpen Then MsgBox "Connection successful." End If 'Connect to Oracle server end 'close connection begin Cn.Close Set Cn = Nothing Set CP = Nothing 'close connection end