I recently took over a visual basic app and I finally got it running on my machine, the problem I am having now is that the database connection keeps failing. I havent done a lot with vb6 in years so maybe I am forgetting something. I can connect fine with another tool called toad and sql plus so I am pretty sure its not my tnsnames, so I am lost here.
Public Sub Oracle_Ado_Logon()
On Error GoTo Errors
Set Cn = New ADODB.Connection
.ConnectionString = "Provider=MSDAORA.1;Password=xxxx;User ID=xxxx;Data Source=xxxxxx;Persist Security Info=True"
.Properties("Prompt") = adPromptNever
.CursorLocation = adUseClient
MsgBox "No Connection To The Database", vbCritical, "Database Connection Error"