*Mr Martin coba dengan script dibawah ini :*
Dim koneksi As ADODB.Connection
Dim Provider_String As String
'---Koneksi Ora Login ---------;
Provider_String = "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 koneksi = New ADODB.Connection
With koneksi
.ConnectionString = Provider_String
.CursorLocation = adUseClient
.Open
End With
If koneksi.State = adStateOpen Then
MsgBox "Successful."
End If
koneksi.Close
Set koneksi = Nothing
Selamat mencoba
----
Robin Sembiring
