New Error message ...

[Lynne]

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???

[tpiano]

check your tnsnames.ora by doing a tns ping, if its okey, try logging in to sqlplus to check the userid, password as well as the host, if you can login, check also your provider driver.

strCON = "Provider=MSDAORA.1;Password=" & xPassword & ";User ID=" & xUserID & ";Data Source=" & DSN & ";Persist Security Info=True"
Set adoDME = New ADODB.Connection
With adoDME
.ConnectionString = strCON
.CursorLocation = adUseServer
.Open
End With
On Error GoTo 0