Hi,

I did some minor changes to my connectionstring, please see below:

Private Sub Class_Initialize()

sProvider = "OraOLEDB.Oracle"
sDSN = "ABC"
sUserName = "Test"
sPassword = "Test"

sConnect = "Provider=" & sProvider & ";" & _
"Data Source=" & sDSN & ";" & _
"User Id=" & sUserName & ";" & _
"Password=" & sPassword & ";"

Set mConnection = New ADODB.Connection

With mConnection
.ConnectionString = sConnect
.ConnectionTimeout = 10
.CursorLocation = adUseNone
.Open
End With
End Sub

and now I am getting this error:

TSN: could not resolve service name

I checked and my listener is running???