I am using VB6 and Crystal XI an dam getting this error when trying to connect. Here is my code.
Dim ADOConnection As ADODB.Connection
Dim ADOCommand As ADODB.Command
Set ADOConnection = New ADODB.Connection
ADOConnection.Open sConnectString
Set ADOCommand = New ADODB.Command
Set ADOCommand.ActiveConnection = ADOConnection
ADOCommand.CommandText = m_SCompany & "PCLM"
ADOCommand.CommandType = adCmdTable
objRpt.Database.AddADOCommand ADOConnection, ADOCommand
sConnectString = Provider=sqloledb.1;Initial Catalog=DEVPE90;Persist Security Info=True;Data Source=NYSQL2000
Any help is appreciated.
Dim ADOConnection As ADODB.Connection
Dim ADOCommand As ADODB.Command
Set ADOConnection = New ADODB.Connection
ADOConnection.Open sConnectString
Set ADOCommand = New ADODB.Command
Set ADOCommand.ActiveConnection = ADOConnection
ADOCommand.CommandText = m_SCompany & "PCLM"
ADOCommand.CommandType = adCmdTable
objRpt.Database.AddADOCommand ADOConnection, ADOCommand
sConnectString = Provider=sqloledb.1;Initial Catalog=DEVPE90;Persist Security Info=True;Data Source=NYSQL2000
Any help is appreciated.